VBA/Excel/Access/Word/Data Type Functions/LBound UBound
Use LBound function to get lower bound
<source lang="vb">
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
</source>
Use UBound to get the upper bound
<source lang="vb">
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
</source>