errore VBScript 800a03ee su funzione

[michela85cancro]

Buongiorno a tutti!

Ho creato questa funzione per codificare in base 64 un file di immagine:

 Function EncodeBase64(ByRef arrData() As Byte) As String

    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument
    
    ' byte array to base64
    Set objNode = objXML.createElement("b64")
    objNode.dataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    EncodeBase64 = objNode.Text

    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing

End Function

ma mi dà questo errore...


Errore di compilazione di Microsoft VBScript error '800a03ee'

Previsto ')'

/riservato/easysite/portali/Portale_EBay.asp, riga 11

Function EncodeBase64(ByRef arrData() As Byte) As String
--------------------------------------^


Non riesco a capire dove manca la parentesi....