Sub GetHTTPResponse()
    On Error Resume Next
    Debug.Print "начало"
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", "http://mobilluck.com.ua", False
        .Send
        Debug.Print .responseText
        Debug.Print "конец"
    End With
    Set oXMLHTTP = Nothing
End Sub