Multiple Relpace string question

[vbisjustforme]

sup guys, hit a mental snag an need some help.

i want to search a defined string (textbox),
and replace all characters in that string to Hex(KeyAscii) with "%" in front of the Hex(KeyAscii) right

now my problem is i can do this in the textchange and keypress etc with one replace function eg . txtpass1 = Replace(txtpass , "&", "%26")

works no probs ... however there are multiple instances i need to change if they are present in txtpass eg.

txtpass1 = Replace(txtpass , "&", "%26")
txtpass1 = Replace(txtpass , ",", "%2C")
txtpass1 = Replace(txtpass , "<", "%3C")
txtpass1 = Replace(txtpass , ">", "%3E")
txtpass1 = Replace(txtpass , "!", "%21")
txtpass1 = Replace(txtpass , "@", "%40")
txtpass1 = Replace(txtpass , "#", "%23")

and its just not working!!
txtpass1 is returning as txtpass is

any idea's??

btw this would work to if i could figure it out ...

Private Sub txtpass_Change( )
txtpass1 = "%" & Hex(KeyAscii)
end sub

any chance i can fix that to make it work??

thanks

[vbisjustforme]

guys if anyone is intersted in this thread this is how i went about an unothordox way to solve my problem


Private Sub txtpass_LostFoc us()
txtpass1 = Replace(txtpass , "&", "%26", 1, -1, vbBinaryCompare )
txtpass2 = Replace(txtpass 1, "#", "%23")
txtpass3 = Replace(txtpass 2, "+", "%2B")
End Sub

Private Sub txtpass1_Change ()
txtpass2 = txtpass1
End Sub

Private Sub txtpass2_Change ()
txtpass3 = txtpass2
End Sub


it worked so im happy :D