VBScript String als hexadezimale Zahl ausgeben

Hallo zusammen,

ich suche eine Möglichkeit, eine Variable aus VBScript als hexadezimale Zahl auszugeben. Bevor ich das ganze manuell schreibe (select case...), dachte ich, es gäbe vielleicht eine andere Variante, wie chr(STRING) auf die ASCII Tabelle zurückgreift. Gibt es so eine einfache Lösung?

Bin für jeden Tipp dankbar!

MfG, DS4

dim strHex,var
var = "TestText"  
For i=1 To Len(var)
    strHex = strHex & Hex(Asc(Mid(var,i,1)))
Next
MsgBox strHex

dim x : x = "Wort"  
dim y : y = ""  
for p = 1 to len(x)
  y = y & right(("0" & hex(asc(mid(x,p,1)))),2)  
next
msgbox y