Dim Names(1 To 4) As String

Private Sub Form_click()

Dim I As Integer
Names(1) = "Smith"
Names(2) = "Jones"
Names(3) = "Brown"
Names(4) = "Wilson"

For I = 1 To 4
    Print "Names ("; I; ")",
Next I
Print
For I = 1 To 4
    Print Names(I),
Next I
Print
End Sub

    Source: geocities.com/matkins70