Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

Use LBound function to get lower bound

Sub Array1()   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 "Lower Bound = " & LBound(Data) & vbCr End Sub