MsgBox strtohex("jklno")
End Sub
Function hextostr(ByVal x As String) As String
Dim temp
temp = Split(x, " ")
For i = 0 To UBound(temp)
hextostr = hextostr & Chr("&H" & temp(i))
Next
End Function
Function strtohex(ByVal x As String) As String
For i = 1 To Len(x)
strtohex = strtohex & Hex(Asc(Mid(x, i, 1))) & " "
Next
strtohex = Trim(strtohex)
End Function