Dim arrSchueler(15) As Schueler
 
Public Sub Test()
 
    Dim i As Integer
 
    For i = 1 To 15
        Set arrSchueler(i) = New Schueler
        arrSchueler(i).Name = "Schüler " & i
    Next i
 
End Sub
 
Public Sub Ausgabe()
 
    Dim i As Integer
 
    For i = 1 To 15
        MsgBox arrSchueler(i).Name
    Next i
 
End Sub