Option Explicit
 
Dim ie: Set ie = CreateObject("InternetExplorer.Application")
 
ie.visible = true
ie.Navigate "http://www.google.com"
 
Do: Loop While(ie.ReadyState <> 4)
Do: Loop While (ie.Document.ReadyState <> "complete")
 
Dim query: Set query = ie.Document.getElementsByName("q")(0)
Dim submit: Set submit = ie.Document.getElementsByName("btnI")(0)
 
query.value = "visual basic"
submit.click()
 
Do: Loop While (ie.ReadyState <> 4)
Do: Loop While (ie.Document.ReadyState <> "complete")
 
MsgBox ie.Document.Location