Komponent för Unicode?

Finns det någon inbyggd komponent i exempelvis MSXML som man kan använda för att omvandla rå binärdata till Unicode? Vore bra för att få rätsida på svenska tecken vid hämtning med ServerXMLHTTP osv.

Det går bra med den här funktionen men är alldeles för långsamt:

Function Unicode(strResponseBody)
    Dim i, t
    t = String(LenB(strResponseBody), " ")
    t = ""
    For i = 1 To LenB(strResponseBody)
        t = t & Chr(AscB(MidB(strResponseBody, i, 1)))
    Next
    Unicode = t
End Function