problem med cryptoAPI

jeg bruger cryptoAPI fra
http://www.planet-source-code.com/vb/scripts/showcode.asp?txtCodeId=5825&lngWId=1

men jeg får den her fejl:

Invalid procedure call or argument

ved den her linie:

DecryptNumber = (10 * DecryptNumber) & (Asc(Mid$(sNumber, i, 1)) - Asc(Mid$(NUMBER_ENCRYPT_PASSWORD, i, 1)))

i den her funktion:

Private Function DecryptNumber(ByVal sNumber As String) As Long
    Dim i As Long


    For i = 1 To 8
        DecryptNumber = (10 * DecryptNumber) & (Asc(Mid$(sNumber, i, 1)) - Asc(Mid$(NUMBER_ENCRYPT_PASSWORD, i, 1)))
    Next i
End Function

nogen der kan fortælle mig hvad der er galt?