Private Function StringToHex(strText As String) As String
  Dim intIndex As Integer
  On Error GoTo err_exit
 
  For intIndex = 1 To Len(strText)
    StringToHex = StringToHex & _
          Hex(Asc(Mid$(strText, intIndex, 1)))
  Next
  Exit Function
 
err_exit:
    StringToHex = ""
End Function