[Resolvido] Salvar código fonte de uma página

StrUrl = "http://www.sua_pagina.com.br" ' ponha aqui um site verdadeiro

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "get", StrUrl,false
objXMLHTTP.setRequestHeader "content-type", "text/html; charset=ISO-8859-1"
objXMLHTTP.send
pagina = objXMLHTTP.getResponseHeader("Date")
strXmlHttp = objXMLHTTP.responseText
set objXMLHTTP = nothing

código original do post