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

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

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

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)

wrote in message
oups.com...
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