Sub arrayTest() Dim i As Integer Dim intMyScores(10) As Integer For i = 0 To 10 intMyScores(i) = InputBox("Enter number " & i, "Static Array Test") Next For i = 0 To 10 Debug.Print "For array element " & i & " the number is " & _ intMyScores(i) Next End Sub