XMLHTTP och Unicode

Jag hittade efter en sökning följande lösning på problemet med att vissa bokstäver och tecken ersätts med "?" eller liknande när man läser t.ex. en textfil med XMLHTTP:

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

När jag kör nedanstående text genom denna funktion blir resultatet "N" och ingenting mer.

Nacka Bio - sommaruppeh?!

Bion h?er st?t under sommaren och ?rkommer till h?n i samband med Dieselverkstadens s?ngs?ing och ett?fest l?gen den 6 september.

Finns det någon annan lösning på unicode-problemet månne?