Private Function GetHTTPResponse() As String
    Dim oXMLHTTP, cookie$, crumb$
    sURL = "https://finance.yahoo.com/quote/AAPL?p=AAPL"
    On Error Resume Next

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    With oXMLHTTP
        .Open "GET", sURL, False
        .SetRequestHeader "Cache-Control", "max-age=0"
        .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        .SetRequestHeader "Accept-Encoding", "deflate"
        .SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
        .SetRequestHeader "upgrade-insecure-requests", "1"
        .send
        cookie$ = ""
        Dim header As Variant
        Debug.Print .getAllResponseHeaders()
        For Each header In Split(.getAllResponseHeaders(), vbNewLine)
            If header Like "Set-Cookie:*" Then
                cookie$ = cookie$ & "; " & Mid(header, 12)
            End If
        Next

        crumb = get_crumb(.responseText)
        .abort
        sURL = "https://query1.finance.yahoo.com/v10/finance/quoteSummary/AAPL?modules=price&crumb=" & crumb
        .Open "GET", sURL, False
        .SetRequestHeader "Cache-Control", "max-age=0"
        .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        .SetRequestHeader "Accept-Encoding", "deflate"
        .SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
        .send
        GetHTTPResponse = .responseText
        Debug.Print .responseText
    End With
    Set oXMLHTTP = Nothing
End Function