Generar variables de estructura dinámicamente

[Bravenap]

A lo mejor no me he explicado del todo bien, ¿o es que nadie sabe cómo hacerlo?

En fin, una cuestión. ¿Se puede hacer esto?

Código:

Structure Visado()
    Public NumColegiado As String
    Public NumVisado As String
    Public NombreCliente As String
    Public NombreEmpresa As String
    ....
End Structure

Y cada vez que cree una nueva variable de tipo Visado() hacerlo con un índice:

Código:

For i=0 To 9
ReDim Preserve nuevoVisado(i) As Visado()
    With nuevoVisado(i)
        .NumColegiado = "54654"
        .NumVisado = "321564"
        .NombreCliente = "Pepe"
        .NombreEmpresa = "Empresarios Sin Escrúpulos SA"
        ....
    End With
Next