binary stream

Hej,

Har hittat ett script som jag skulle vilja göra lite förändringar i..

Detta använder en temp fil o skriver ner till..
Sedan läses den av binärt..

Skulle vilja skippa temp filen och bara använda en sträng istället men får inte rätt på det...

Någon som kan gen mig ett tips ?

'exempel värde
modguid = "FFF195D6E48D7E4BB851F4885D47A539"

strGUID = modguid   
  
Call ConvertHexStringToByteArray (strGUID, newArr)

Sub ConvertHexStringToByteArray (ByVal strHexString, ByRef pByteArray)
 Dim fso, stream, temp, ts, n

 Set fso = CreateObject ("scripting.filesystemobject")
 Set stream = CreateObject ("adodb.stream")

 temp = fso.gettempname ()
 Set ts = fso.createtextfile (temp)

 For n = 1 To (Len (strHexString) - 1) Step 2
  ts.write Chr("&h" & Mid(strHexString, n, 2))
 Next

 ts.Close

 stream.Type = 1
 stream.Open
 stream.loadfromfile temp

 pByteArray = stream.read

 stream.Close
 fso.deletefile temp 

 Set stream = Nothing
 Set fso = Nothing
End Sub

löste det med denna :

Function StringToMultiByte(S)
  Dim i, MultiByte
  For i=1 To Len(S)
    MultiByte = MultiByte & ChrB(Asc(Mid(S,i,1)))
  Next
  StringToMultiByte = MultiByte
End Function