You can change this situation by option base 1
take for example
Option base 1
Private Sub-Form _load ()
Dim a(9) as long' This is a( 1 to 9), with 9 elements.
End joint