does anyone have that code that will replace everything in data.txt with it's ASCII code? or a function that will do it? Something like this:

Private Function ASCII(data As String) As String
data = Replace(data, ">", "%3E")
data = Replace(data, "`", "%60")
data = Replace(data, "{", "%7B")
data = Replace(data, "|", "%7C")
data = Replace(data, "}", "%7D")
data = Replace(data, "~", "%7E")
data = Replace(data, ":", "%3A")
data = Replace(data, ";", "%3B")
data = Replace(data, "<", "%3C")
data = Replace(data, "=", "%3D")
data = Replace(data, Chr(34), "%22")
PostASCII = data
End Function

I dont think i can find all the ascii. does anyone have it done already?