Dim myClass(5) as class
Dim i as integer

For i = 0 to 5
    set myClass(i) = New class
    myClass(i).Property = "SomeValue"
Next i