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

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)

<vleong01@gmail.com> wrote in message
news:1130320183.572678.200640@g47g2000cwa.googlegroups.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
>