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

[xanburzum 169]

               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