Excel shellexecute 为什么使用不了？？

wattwanglx

Public Declare Function ShellExecute _
    Lib "shell32.dll" _
    Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
-----------------------------------------

Sub OpenURL()
Dim URL As String
Dim result As Long
URL = "http://www.baidu.com"
result = ShellExecute(0&, vbNullString, URL, _
vbNullString, vbNullString, vbNormalFocus)
If result < 32 Then MsgBox "Error"

End Sub
我在模块里面输入上面的代码，是在标准模块里面输入的，运行后没有任何结果。
我的代码是抄写书上的，我不知道是代码错误，还是代码放的位置不对，或者我的excel 2003 版本需要什么特别插件，总之是运行代码时候，没有任何变化。

我上传了文件，请高人指点下。