如何调用VB写的DLL？？？？？？？？？？？？？

DLL内容：

Option Explicit
Private 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

Public Sub AddURL(URL As String, Info As String)
ShellExecute 0, "open", "music.exe", URL,"c:\", &H0
End Sub

调用方法：

<script language="VBScript">
set my0807=CreateObject("my0807.geturl")
Call my0807.AddUrl("http://music.gzinfo.net/real/server3/pop2/chinababy/april3.ram","")
</script>

错误现象：

不能创建对象my0807.geturl

但将页面下到本机就可以运行了。。。

为什么？？？？？？？？？？？？？