Option Explicit
Public Sub Test()
Dim objWSH As Object
On Error GoTo Fin
Set objWSH = CreateObject("WScript.Shell")
objWSH.Run ("Safari http://www.google.de")
Fin:
Set objWSH = Nothing
If Err.Number <> 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub