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.