Save page as .mht file ?

Hi

I use this

Set ObjIE = CreateObject("InternetExplorer.Application")
ObjIE.Visible = True
ObjIE.Navigate2 "http://www.google.dk/search?hl=da&q= test &meta="
'Wait till the page is completely displayed!
'The following three lines are not needed if
'you don't want to wait for the 1st page to display completely
While ObjIE.ReadyState < 4
Sleep 100
Wend

Can I save the page as .mht file ? with my makro