Converter

[DANIEL]

I have the below snippet for VB and was wondering how I would go about doing this on QM. Simple code that converts HEX to ASCII.

Code:

Copy      Help

Public Function hex2ascii(ByVal hextext As String) As String
    
For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y

hex2ascii = Value
End Function