Dim objHTTP As Object Set objHTTP = CreateObject("Microsoft.XMLHTTP") Call objHTTP.Open("GET", "http://www.ya.ru/", False) Call objHTTP.Send