'in Deklaration
Dim ArrayF() As Klasse
 
  'in einem Sub
        Dim i As Integer
        Dim l As Integer = 5
        ReDim Array(l - 1)
        For i = 0 To l - 1
            ArrayF(i).Anfang = ArrayF
            ArrayF(i).länge = l
        Next