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