Option Explicit
Public Sub Test()
Dim webb As SHDocVw.InternetExplorer
Dim htmlGoogle As MSHTML.HTMLDocument
Dim htmlBing As MSHTML.HTMLDocument
Set webb = New InternetExplorer
webb.Visible = True
webb.Navigate2 "www.google.de", TargetFramename:="_self"
While webb.ReadyState <> READYSTATE_COMPLETE: Wend
Set htmlGoogle = webb.Document
webb.Navigate2 "www.bing.de", TargetFramename:="_self"
While webb.ReadyState <> READYSTATE_COMPLETE: Wend
Set htmlBing = webb.Document
Call webb.Quit
Set webb = Nothing
End Sub