[vbscript] Uso api errore dichiarazione

[bako]

declare Function urldownloadtofile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String, ByVal szFilename As String, ByVal dwReserved As Long, ByVal lpfncb As Long) As Long

Sub main()
On Error Resume Next
Dim errcode As Long
Dim url As String
Dim localfilename As String
url = "url_da_scrivere"
localfilename = "C:\prova.zip"
errcode = urldownloadtofile(0, url, localfilename, 0, 0)
If errcode = 0 Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub

se faccio partire il vbs cosi scritto mi da un errore sulla dichiarazione .. declare Function urldownloadtofile ... l'errore è : errore di sintassi, codice: 800AO3EA