checkers digits

[fabiobarreto10]

Friends, I am trying to create a function to generate checkers two digits of a number (eg, 2012001). This function is working, but for some numbers it returns 3 or 4 digits, I would like help from you to identify where the error is.

Any help is welcome.

Thank you.

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

[June7]

Why doesn't it work - error message, wrong results, nothing happens?

Have you step debugged? Follow the code as it executes. Find where execution deviates from expected behavior, fix, repeat. Guidelines in link at bottom of my post.

Provide sample data and expected results.

[fabiobarreto10]

June7, I decided, just swapped po mod11 mod10. Thank you so much.