>>67
Dim sw As Object
Set sw = CreateObject("Shell.Application").Windows()

If sw.Count <> 0 Then
sw.Item(0).Navigate ("http://www.yahoo.co.jp")
End If