Querystatuswb Method Example
Set objIExplorer = CreateObject("internetexplorer.application")
objIExplorer.visible = True
objIExplorer.navigate2 "google.com"
Do While objIExplorer.Busy
WScript.Sleep 1000
Loop
a=objIExplorer.querystatuswb(4)
msgbox a
You may understand more here.
See all Methods & Properties of InternetExplorer Object here.