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
Related examples in the same category