Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

Use UBound to get the upper bound

Sub Array2()   Dim Data(10) As Integer   Dim Message As String, i As Integer   For i = LBound(Data) To UBound(Data)     Data(i) = i   Next i   MsgBox "Upper Bound = " & UBound(Data) & vbCr End Sub