Function GetHexString(ByVal Text As String) As String
Dim i As Integer
Dim sb As New System.Text.StringBuilder
For i = 0 To Text.Length - 1
sb.Append(Asc(Text.Chars(i)).ToString("X2"))
Next
Return sb.ToString
End Function
Note: I assume only ANSI encodable characters are contained (00-FF)
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.