>>127
Sub yahoo_search()
　　Dim objIE As Object
　　Set objIE = CreateObject("InternetExplorer.application")
　　objIE.Visible = True
　　objIE.navigate ("http://yahoo.co.jp")

　　Do While objIE.ReadyState <> 4
　　　　DoEvents
　　Loop

　　SendKeys "日本語で入力します。"
　　SendKeys "{ENTER}"
End Sub