Prova con il seguente codice. La pagina te la trovi tutta nella variabile txtPage che, volendo e come previsto nel codice, puoi salvare ed aprire con I.E.
Url deve contenere un indirizzo valido; se la pagina non viene trovata, hai il testo della pagina non trovata oppure la variabile txtPage vuota.
Elio

Dim OggettoHttp As Object
'
Sub CaricaPaginaDaInternet(Url)
Dim txtPage As String
Set OggettoHttp = CreateObject("microsoft.xmlhttp")
OggettoHttp.Open "GET", Url, False
OggettoHttp.send
txtPage = OggettoHttp.responseText
Set OggettoHttp = Nothing
' per salvare il file
Close #1: Open "Nomefile.html" For Output As #1
Print #1, txtPage: Close #1
End Sub