Dim Sh As Object
    Set Sh = CreateObject("Shell.Application")
    Sh.Open "http://www.google.com"
    Set Sh = Nothing