' Single dimension array
Dim maxima(10 To 20)
Print UBound(maxima) ' Output: 20' 2-dimensional array
Dim maxima(1 to 5, 2 to 10)
Print UBound(maxima,2) ' Output: 10' 3-dimensional array
Dim maxima(1 to 5, 5 to 10, 10 to 15)
Print UBound(maxima,1) ' Output: 5
Print UBound(maxima,2) ' Output: 10
Print UBound(maxima,3) ' Output: 15