TopLevelContainer Property Example
Set objIExplorer = CreateObject("internetexplorer.application")
objIExplorer.visible = True
objIExplorer.Navigate2 "http://www.google.com/"
Do While objIExplorer.busy
WScript.Sleep 500
Loop
a=objIExplorer.TopLevelContainer
msgbox a
See all Methods & Properties of InternetExplorer Object here.