Data Type Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type Functions
  4. 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