Private Sub Form_Load()

Dim b(3, 4, 5) As Byte

Debug.Print UBound(b, 1)
Debug.Print UBound(b, 2)
Debug.Print UBound(b, 3)

End Sub

Gracias cobein pero Ubound() no es lo que busco, lo que busco es algo similar a esto:

Private Type tComplemento_Info_Only
    ObjComponente                       As Object
    Nombre                              As String           
    Version                             As String                 
    Status                              As Object                
    StrPath                             As String                 
    'ErrorLoad                           As Boolean
End Type
Private Type VarLenB           '   //  Esta es la que desearia eliminar pero para _
ello nesesito la equivalencia de la funcion LenB() para Array's
    VariableX(55)                      As tComplemento_Info_Only
End Type
Private OtraVariableX As VarLenB
 
Private Sub form_load()
    Debug.Print LenB(OtraVariableX)
End Sub
 

Es la unica forma que ayo ¬¬" pero no me agrada usar Estructuras para eso por ello busco otra alternativa