I need help with converting from ASCII to HEX on VB 2010

[Snake_eyes]

First of all in the programing language the conversion is called "from string to hexadecimal" and it is real easy to achive as the folowing code snippet will demonstrate.

Just create a new project and add two textboxes and a button. Then add the function below in your main class:

[code2=vbnet]Public Function StrToHex(ByRef Data As String) As String
Dim sVal As String
Dim sHex As String = ""
While Data.Length > 0
sVal = Conversion.Hex(Strings.Asc(Data.Substring(0, 1).ToString()))
Data = Data.Substring(1, Data.Length - 1)
sHex = sHex & sVal
End While
Return sHex
End Function[/code2]

Next double click the button and call the function:

[code2=vbnet]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = StrToHex(TextBox1.Text)
End Sub[/code2]
... and that should be all.

Now if you want to show the % sign just like the web site modify this line
[code2=vbnet]sHex = sHex & sVal[/code2]
with this one
[code2=vbnet]sHex = sHex & "%" & sVal[/code2]