Option Compare Database
Option Explicit

'■配列の添字の最小値の既定値1に設定する
Option Base 1

Private Sub コマンド0_Click()

    Dim a(5)
    Dim b(0 To 5)
    Dim c

    c = Array("access", "ほげほげ")

    '配列の添字の最小値をイミディエイトウィンドウに出力
    Debug.Print LBound(a)        ' 結果：1
    Debug.Print LBound(b)        ' 結果：0 ※ to を使用した添字の最小値を変更可能
    Debug.Print LBound(c)        ' 結果：1

End Sub