I'm workin on this program that takes all the strings in a list and turns them 1337(leet for those who may not know). The leet function is working but it won't move to the next string in the list. I've stepped through the program several times and even matched it up to another program that works similarly, however the code is workin on 1 program and not the other. So apparently i'm missing something. another pair of eyes would be useful. Here is what i have for the loop. I have worked with a few different variations of loops n such. All pretty much with the same end result.
Code:
Private Sub Command2_Click()
Dim x As Long, tmp As String, i As Long
x = 0
tmp = lstPW.Text
Do While x < lstPW.ListCount
For i = 0 To UBound(arrReplacer)
tmp = Replace(tmp, arrReplacee(i), arrReplacer(i))
Next i
lstGen.AddItem tmp
x = x + 1
Loop
End Sub