Data Type VisualBasic Script

Sub arrayInit()
    Dim I As Integer
    Dim myArray(10) As Integer
    For I = 0 To 9
      myArray(I) = Cells(I + 1, "A").Value
    Next I
End Sub