Private Type Suchgruppe3
    Name As String
    id As Long
End Type
 
Private Type Suchgruppe2
    Name As String
    id As Long
    SubGroup(2) As Suchgruppe3
End Type
 
Private Type Suchgruppe1
    Name As String
    id As Long
    SubGroup(2) As Suchgruppe2
End Type
 
Public Sub Class_Initialize()
    Dim lSgr(2) As Suchgruppe1
    Dim sgr1 As Suchgruppe1
    Dim sgr2 As Suchgruppe2
 
    sgr1.Name = "Computer"
    sgr1.id = 3
    sgr2.Name = "Zubehör"
    sgr2.id = 2
    sgr1.SubGroup(0) = sgr2
    lSgr(0) = sgr1
    Debug.Print ("-> " & lSgr(0).SubGroup(0).Name)
    Debug.Print ("1. Untergruppe '" & lSgr(0).SubGroup(0).Name & "' hat " &  _
                            UBound(lSgr(0).SubGroup) & " Untergruppen.")
End Sub

Private Type Suchgruppe
    Name As String
    id As Long
    SubGroup() As Suchgruppe
End Type