Konvertera till text från binär data...

Det är i alla fall vad jag tror att jag måste göra. Jag använder följande kod i ett Windows-program men det returnerar bara: ??? ???? ??? osv. Jag vill ha det i text!
Funktionen som returnerar frågetecknen ser alltså ut så här:

Function a()
dim objXMLHTTP 
set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") 

objXMLHTTP.Open "GET", "http://www.trexter.com/xmlhttp/xmlhttp.asp", false 
objXMLHTTP.SetRequestHeader "Content-type", "text/html" 
objXMLHTTP.Send
a = objXMLHTTP.ResponseBody
End Function

:)