[Daniels118]

Come dicevo, puoi farlo creando un nuovo type, esempio:

Private Type StringArray
    items() As String
End Type

Dim livelli()   As StringArray
ReDim livelli(9)
ReDim livelli(0).items(99)
livelli(0).items(0) = "aaa"