In diesem Beispiel wird die Option Base-Anweisung verwendet, um die
Standarduntergrenze für Datenfeldindizes (0) zu ändern. Die LBound-Funktion 
liefert den kleinsten verfügbaren Index für die angegebene Datenfelddimension. 
Die Option Base-Anweisung wird nur auf Modulebene verwendet.
 
Option Base 1   ' Standard-Untergrenze für
               ' Datenfeldindizes auf 1 festlegen.
 
Dim Untergrenze
Dim Feld1(20), ZweiDFeld(3, 4) ' Datenfeldvariablen deklarieren.
Dim NullFeld(0 To 5)   ' Standard-Untergrenze für
                     ' Datenfeldindex ändern.
' Überprüfen der Untergrenzen von Datenfeldern mit der LBound-Funktion.
Untergrenze = LBound(Feld1)         ' Liefert 1.
Untergrenze = LBound(ZweiDFeld, 2)   ' Liefert 1.
Untergrenze = LBound(NullFeld)   ' Liefert 0.