'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