array de structura

Structure StVarDat
Dim AaEsT As Boolean
Dim AaUsa As Boolean
Dim AaTam As Short
Dim AaNvl As String
Dim AaLin As String
Dim AaNom As String
Dim AaTip As String
End Structure
Public VarDat() As StVarDat
Public VarMax As Short

' Este es el módulo donde está declarada la Str
ReDim Preserve CobChkMod.VarDat(VarMax)
Var Max Permite no gestionar: Subscript out of range (Desborde de dimensión)

Espero que le sea de utilidad...