[Resolvido]digitos verificadores

Amigos, eu tenho uma função que gera dois digitos verificadores de um número com sete digitos(por exemplo, 2012001). Esta função está funcionando, mas em alguns números ela retorna 3 ou 4 digitos, Gostaria da ajuda dos senhores para identificar onde está o erro.

Qualquer ajudar é bem-vinda.

Obrigado.

Public Function GetVerifier(strNumero As String) As String

Dim N As Integer, P As Integer, S As Integer, D As Double

For N = 1 To 7
P = (P + Mid(strNumero, N, 1) * N) Mod 11
Next

If P < 3 Then
P = 0
End If

D = strNumero & P


For N = 1 To 8
S = (S + Mid(D, N, 1) * (N - 1)) Mod 11
Next

If S < 3 Then

S = 0
End If

GetVerifier = P & S

End Function

Tem um exemplo de número que a função retorna 3 ou 4 digitos?

Cláudio, obrigado por responder e por ajudar. 2012009 por exemplo.

Nesses casos, P é maior que 9. Então quando o código faz:

GetVerifier = P & S

certamente, o resultado será uma string com 3 dígitos.

Precisa incluir tratamento para esses casos (P maior que 9), teria que conhecer as regras para gerar os dígitos verificadores, para poder ajudar com a solução.

Claudio, apenas troquei Mod 11 para Mod 10, e funcionou perfeitamente. Agradeço a sua ajuda.