Sub arrayTest3()
Dim i As Integer
Dim intMyScores() As Integer
Dim intArraySize As Integer
intArraySize = 10
ReDim intMyScores(1 To intArraySize)
For i = 1 To intArraySize
intMyScores(i) = i
Next
For i = 1 To intArraySize
Debug.Print "For array element " & i & " the number is " & intMyScores(i)
Next
End Sub