Sub HD_TimeFrame_()
Dim XMLHTTP As Variant, URL As String, HD_TimeFrame As String

URL = "http://ru.investing.com/common/modules/js_instrument_chart/api/data.php?symbol=S%2526P%2B500&pair_id=166&pair_id_for_news=166&chart_type=area&pair_interval=86400&candle_count=120&events=yes&volume_series=yes"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
  With XMLHTTP
    .Open "GET", URL, False
    .setRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01"
    .setRequestHeader "Accept-Encoding", "gzip, deflate, sdch"
    .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
    .setRequestHeader "Connection", "keep-alive"
    .setRequestHeader "Host", "ru.investing.com"
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36"
    .setRequestHeader "X-Requested-With", "XMLHttpRequest"
    .setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500"
    .setRequestHeader "Content-Type", "application/json"
    .send
  End With
HD_TimeFrame = XMLHTTP.responseText
'Debug.Print HD_TimeFrame
Set XMLHTTP = Nothing
End Sub