' El arreglo lo defino Tipo ClasePersona sin darle un Tamaño
Dim arregloPersona() As ClasePersona
Dim TamañoArreglo As Integer
TamañoArreglo = 5
'Realizo un ciclo desde 0 hasta el tamaño que quieras
For i = 0 to TamañoArreglo
' El ReDim es para Redefinir el Arreglo en este Caso queremos Redefinir el Tamaño de este
' El Preserve es para que guarde la Informacion que a sido Ingresada en los demas Espacios del arreglo
ReDim Preserve arregloPersona(i+1)
'Se llama al constructor
arregloPersona(i) = New ClasePersona()
'Le asigna un varlo en el Campo "SuID"
arregloPersona(i).SuID = i
Next
MsgBox arregloPersona.Length