Example - Option Base Statement

Option Base 1' Module level statement.
Sub Main()
   Dim A(), Msg, NL' Declare variables.
   NL = Chr(10) ' Define newline.
   ReDim A(20) ' Create an array.
   Msg = "The lower bound of the A array is " & LBound(A) & "."
   Msg = Msg & NL & "The upper bound is " & UBound(A) & "."
   MsgBox Msg ' Display message.
End Sub