String to hex?

Perturbatio: Thanks for the help... but that would be for a hex number to a string :)

An example of the output I'm hoping to produce is here:
input: "Cube\cube.exe"
output: 43 75 62 65 5C 63 75 62 65 2E 65 78 65

My little attempt to get the number value for each letter succeeded, but I was stumped after that.



Edit:
GARGH! Stupid me! I may have just fixed it myself. Again.
I can't be the only person on this forum who always does this. Am I? :S



Okay, here *blush*

Local s$ = "Cube\cube.exe"
Print StrToHex$(s$)
WaitKey()

Function StrToHex$(InpStr$)
;Convert Ascii string to Hex string for XVI32
	Local OutStr$
	For a=1 To Len(inpStr$)
		ca$=Mid(inpStr,a,1)
		cb=Asc(ca$)
		OutStr$=OutStr$+RSet(Trim(Hex(cb)),2)+" "
	Next
	Return Mid(OutStr$,1,Len(outStr$)-1);Remove final space...
End Function