UBound Function

UBound (ArrayName [, Dimension])

Sub ExampleUboundLbound

Dim sVar(10 To 20) As String

    Print LBound(sVar())

    Print UBound(sVar())

End Sub

Sub ExampleUboundLbound2

Dim sVar(10 To 20,5 To 70) As String

    Print LBound(sVar()) REM Returns 10

    Print UBound(sVar()) REM Returns 20

    Print LBound(sVar(),2) REM Returns 5

    Print UBound(sVar(),2) REM Returns 70

End Sub