this code will repeat whatever youve typed in. but i want it to replace any "two" in the text with a 2. I thought this would work but it doesnt and i have no idea why, so if anyone knows I would much apreciate an answer.



Dim num(5020) As String

Private Sub Command1_Click()
For syl = 1 To 5000
num(syl) = Mid$(Text1.Text, (syl), 1)
Next syl

For spf = 1 To 5000
Select Case num(spf)
Case num(spf) = "t" And num(spf + 1) = "w" And num(spf + 2) = "o"
num(spf) = "2"
num(spf + 1) = ""
num(spf + 2) = ""
End Select
Next spf

For rite = 1 To 5000
Label1.Caption = Label1.Caption & num(rite)
Next rite

End Sub