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