Set h = CreateObject("Microsoft.XMLHTTP") URL = mPath h.Open "get", URL, False h.send wen = h.responsebody For i = 1 To LenB(wen) Text = AscB(MidB(wen, i, 1)) If Text < &H80 Then body = body & Chr(Text) Else file = AscB(MidB(wen, i + 1, 1)) body = body & Chr(CLng(Text) * &H100 + CInt(file)) i = i + 1 End If Next