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_LostFocus()
txtpass1 = Replace(txtpass, "&", "%26", 1, -1, vbBinaryCompare)
txtpass2 = Replace(txtpass1, "#", "%23")
txtpass3 = Replace(txtpass2, "+", "%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