'Option Compare Database
Option Explicit Public Sub ArrayExample() Dim i As Integer Dim intNum(1 To 10) As Integer
For i = 1 To 10
intNum(i) = InputBox("Please enter guess " & i, "Guess!")
Next i
For i = 1 To 10
Debug.Print "Guess number " & i & " = " & intNum(i)
Next i End Sub