Function StringToHex(str as String) as String
   dim x as long, hexchar as string
   for x = 1 to len(str)
      hexchar = hex$(asc(mid$(str, x, 1)))
      if len(hexchar) = 1 then hexchar = "0" & hexchar
      StringToHex = StringToHex & hexchar
   next x
End Function