Qui  trovi una discussione che ti puo' tornare utile.
ho dato un occhiata e...
	codice:
	Dim fs As New FileSystemObject
dim outfile
dim url as string
dim codice_html as string
fs.CreateTextFile (App.Path & "\prova.html") 'file dove salvi la pagina web
Set outFile = fs.OpenTextFile((App.Path & "\prova.html"), ForAppending, TristateFalse) 
Inet1.URL = url 'passi l'url della pagina
codice_html = Inet1.OpenURL
outFile.WriteLine codice_html
outFile.Close
 
devi inserire il componente INET (micrososft internet transfer control)
in questo modo pero' ti ritrovi la pagina senza immagini...dovresti scandagliare tutto il codice html e intercettare tutti i tag delle immagini e scaricarle...! secondo me...!ma sicuramente esiste un modo meno contorto!
 secondo me...!ma sicuramente esiste un modo meno contorto!