UBound Function

UBound (ArrayName [, Dimension])

Sub VectorBounds
    Dim v(10 To 20) As String
    Print LBound(v()) ' 10
    Print UBound(v) ' 20
End Sub
 
Sub TableBounds
    Dim t(10 To 20,-5 To 70) As Currency
    Print LBound(t), UBound(t()) ' 10  20
    Print LBound(t(),2) ' -5
    Print UBound(t,2) ' 70
End Sub