this code succeed with me

[vba]Set appie = CreateObject("INTERNETEXPLORER.APPLICATION")
appie.navigate "http://google.com"
appie.Visible = True
Do While appie.busy
DoEvents
Loop
appie.document.all.Item("q").Value = "vbaexpress"[/vba]
thank you for help!