With CreateObject("Microsoft.XMLHTTP") .Open "GET", "адрес страницы", "False" .send If .statustext = "OK" Then s = .responsetext 'это и есть HTML-код страницы 'дальше работает с переменной s End IfEnd With