Passing Variable i (XP; SP3)

[jstevens]

I am having an issue passing the variable "i" in the FOR statement. In essence each time the message box appears it should display "one, two, three and etc".

I have tried numerous combinations but have come up blank.

Sub Test_One()
Dim i As Integer
oFile1 = "One"
oFile2 = "Two"
oFile3 = "Three"
oFile4 = "Four"
oFile5 = "Five"

For i = 1 To 5
MsgBox "oFile" & i
Next i
End Sub

Thanks,
John

[LegareColeman]

What you are doing is concatenating the value of the variable i with the string "oFile" and displaying the result of the concatenation. To do what you want you would need to use an array, like this:

<code>
Dim I As Long
Dim oFile(1 To 5) As String
oFile(1) = "One"
oFile(2) = "Two"
oFile(3) = "Three"
oFile(4) = "Four"
oFile(5) = "Five"
For I = 1 To 5
MsgBox oFile(I)
Next I
</code>

[HansV]

You could use an array variable:

Sub Test_One()
Dim i As Integer
Dim oFile(1 To 5) As String

oFile(1) = "One"
oFile(2) = "Two"
oFile(3) = "Three"
oFile(4) = "Four"
oFile(5) = "Five"

For i = 1 To 5
MsgBox oFile(i)
Next i
End Sub

[jstevens]

Legare/Hans,

Thank you very much. I had a thought the solution would be some type of an array. I just didn't know how to go about it.

Regards,
John