I've got some problems in converting Hexadecimal values to ASCII

  • Thread starter Thread starter vleong01
  • Start date Start date
V

vleong01

Hi there, i've got some problems converting hexadecimal value to ascii.
This is how my coding looks like.

Function ReturnHEX(TheString as String) As String
Dim i As Integer, RtnStr As String
RtnStr = ""
For i=1 To Len(TheString)
RtnStr=RtnStr &Right$("&H" &
Str(CInt(Mid$(TheString,i,1))),2) & " "
Next
ReturnHEX=RtnStr
End Function

Hope someone can come out a solution for this. Thanks.

Regards,
vleong
 
What are you trying to do here, convert what to what? An example would be
useful.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
Back
Top