Dim XMLHTTP, ADOStream

Set XMLHTTP = CREATEOBJECT( "Microsoft.XMLHTTP" )
XMLHTTP.open  "GET" ,  "http://www.ee/warav_ru.html" ,  "False" 
XMLHTTP.send


If XMLHTTP.statustext =  "OK"  Then
	Set ADOStream = CreateObject( "ADODB.Stream" )
	ADOStream.Open
	ADOStream.WriteText XMLHTTP.Responsetext
	ADOStream.SaveToFile  "c:\my.html" ,  2 
	ADOStream.Close
	Set ADOStream = Nothing
Else
	msgbox XMLHTTP.statustext
End if

Set XMLHTTP = Nothing