Sub GetHTTPResponse()
   '' On Error Resume Next
    Debug.Print "начало"
    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    With oXMLHTTP
        .Open "GET", "http://mobilluck.com.ua/", False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:43.0) Gecko/20100101 Firefox/43.0"
       .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .Send
        Debug.Print ConvertBytesToString(.responsebody)
        Debug.Print "конец"
    End With
    Set oXMLHTTP = Nothing
End Sub
Function ConvertBytesToString(varByteArray)
Dim byt
Const adTypeText = 2
Const adTypeBinary = 1
    Set byt = CreateObject("ADODB.Stream")
    byt.Type = adTypeBinary
    byt.Open
    byt.Write varByteArray
    byt.Position = 0
    byt.Type = adTypeText
    byt.Charset = "windows-1251"
    ConvertBytesToString = byt.ReadText
    byt.Close
    Set byt = Nothing
End Function