Помогите плз ламаку разобраться что не так с массивом (ошибка - не верная размерность массива, хотя результат на первом шаге - одномерный, на сколько могу судить, массив = (0,0,0,0,0) ):

Sub test2()
Dim vagon(4) As Double
Dim sostav(5) As Integer
For v = 0 To 9
For a = 0 To 9
For g = 0 To 9
For o = 0 To 9
For n = 0 To 9
For s = 0 To 9
For t = 0 To 9
Debug.Print (vagon(v, a, g, o, n))
Next t
Next s
Next n
Next o
Next g
Next a
Next v
End Sub

Shocker.Provagon(v, a, g, o, n) - пятимерный массив
спасибо
не понял видать как массивы объявляются