Переход по URL-адресу с помощью Safari на Mac

Question

Я нашел этот код в сети, но он не работает на MacScipt S с ошибкой

«Неверный вызов процедуры или аргумент»

Sub OpenURL(ByVal URL As String)
    Dim S As String

    S = "tell application ""Safari""" + vbCrLf + _
        "open location """ + URL + """" + vbCrLf + _
        "end tell"
    MacScript S
End Sub

Sub Test()
    OpenURL "http://www.officeonemac.com/"
End Sub