とりあえずヤフーで"自動検索"を自動検索

Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.navigate2 ("http://www.yahoo.co.jp")
IE.Visible = True
Do While IE.Busy = True
Loop
IE.Document.forms.Item(0).Children(0).Children(0).Value = "自動検索"
Set s = IE.Document.forms.Item(0).Children(1).Children(0)
s.Click

文書構造に依存するのでその構造の取出しが問題
数字ではなく名前でアクセスしたいところですが