Bonjour à tous

Un petit problème à régler. je dois appeler la Function ci-après mais je ne sais pas ce que je dois lui passer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Modulo10(ByVal StrNbre As String) As Integer
 
Dim modTable(0 To 9) As Integer
Dim modReport As Integer
Dim modSerie As Integer
 
    modTable(0) = 0: modTable(1) = 9
    modTable(2) = 4: modTable(3) = 6
    modTable(4) = 8: modTable(5) = 2
    modTable(6) = 7: modTable(7) = 1
    modTable(8) = 3: modTable(9) = 5
 
    For modSerie = 1 To Len(StrNbre)
        modReport = modTable((modReport + Mid(StrNbre, modSerie, 1)) Mod 10)
    Next
 
    Modulo10 = (10 - modReport) Mod 10
 
 
End Functio
n

Merci pour votre aide
@++
gic