Funzione calcolo check digit

[A]

Salve a tutti!
Mi sapreste aiutare nella creazione di una funzione per il calcolo del
check digit?
Io vorrei far inserire dall'utente i primi 12 caratteri, ed in seguito
calcolare io il check digit corretto!
Ho visto sul sitocomune una funzione che verifica che sia vero o falso,
ma non è proprio ciò che cerco!
Grazie!

[A]

Ritiro la domanda, ho risolto modificando la procedura del sitocomune..
Ve la riporto:

Public Function TestChecksumEan13(TestEan As String) As Integer
'Autore: AntoGal
'Accetta: TestEan = codice EAN-13
'Restituisce: true se il codice è corretto
If Not TestEan Like "############" Then 'controlla che siano 13 cifre
TestChecksumEan13 = False
Exit Function
End If
Dim i As Integer, Sum As Integer, check As Integer
Sum = 0
'somma in posizione pari
For i = 2 To 12 Step 2
Sum = Sum + Val(Mid(TestEan, i, 1))
Next i
'moltiplica per 3 le cifre in posizione pari
Sum = Sum * 3
'somma in posizione dispari
For i = 1 To 11 Step 2
Sum = Sum + Val(Mid(TestEan, i, 1))
Next i
Sum = Sum Mod 10
check = (10 - Sum) Mod 10

TestChecksumEan13 = check 'codice corretto
End Function

Ciao Alby