Visual Basic - Guardar pagina web!!!

Hola que tal

Estoy realizando un navegador.

Al abrir una pagina esta se abre bien,utilizo lo siguiente:

On Error Resume Next
com.Filter = "Paginas|*.htm|Texto|*.txt|Imagenes|*.jpg"
com.ShowOpen
If com.FileName = "" Then
Exit Sub
Else
WebBrowser1.Navigate (com.FileName)
End If

Y al guardar una pagina utilizo lo siguiente:

com.Filter = "htm (*.htm) | *.htm"
com.ShowSave
If com.FileName = "" Then
Exit Sub
Else
Open com.FileName For Output As #1
Print #1, WebBrowser1.Document
Close #1
End If

Sin embargo tengo un problema, al guardar la pagina esta se guarda con la extension
y todo pero sin el contenido adentro, lo unico que aparece es lo siguiente:

[object]

Necesitaria saber que tengo que hacer para que una pagina o imagen se guarde
correctamente utilizando el navegador.

Muchas gracias.

usa esto
web.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER

el webbrowser muestra el cuadro de dialogo guardar

saludis!!