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