Looking for excel function to convert hex to Ascii

B

Bob Phillips

Public Function Hex2ASCII(hexvalue)
Dim i As Long
Dim tmp

If TypeName(hexvalue) = "Range" Then
tmp = hexvalue.Value
ElseIf TypeName(hexvalue) = "String" Then
tmp = hexvalue
Else
Hex2ASCII = CVErr(xlErrRef)
Exit Function
End If

For i = 1 - Len(tmp) Mod 2 To Len(tmp) Step 2
Hex2ASCII = Hex2ASCII & Chr(Mid(tmp, i, 2))
Next i

End Function


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 

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.

Ask a Question

Top