Public Type buch
    anzAufg As Integer
    Aufgaben(255) As String
    anzGesAufg As Integer
    gesAufg(255) As String
End Type
 
dim buecher as new collection
 
Private Sub Main()
 dim x as buch
 buecher.add x
End Sub