Sub test2439048203948()
    URL$ = "http://www.livemaster.ru/topic/764327-rospis-svetlyh-tkanej-kraskami-futbolka-s-letnim-motivom"
    MsgBox GetHTTPResponse(URL$)
End Sub

Function GetHTTPResponse(ByVal sURL As String) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .Send

        With CreateObject("ADODB.Stream")
            filename$ = Environ("tmp") & "\response.txt"
            .Charset = "windows-1251": .Type = 1        ' adTypeBinary:
            .Open: .Write oXMLHTTP.ResponseBody
            .SaveToFile filename$, 2
            .Type = 2        'adTypeText
            .LoadFromFile filename$
            response$ = .ReadText
            .Close
        End With

        GetHTTPResponse = response$
    End With
    Set oXMLHTTP = Nothing
End Function