Алгоритам за Проверка на Точноста на Внесениот ЕМБ

Еве ти целосна функција за валидација на ЕМБ, се надевам дека ќе ти помогне:


   Public Function ValidateEMB(ByVal emb As String) As Boolean


        If Len(emb) <> 13 Then GoTo eX

        Dim a, B, c, d, e, f As Integer
        Dim g, h, I, j, k, l As Integer

        Dim ch As Integer


        a = Val(Mid(emb, 1, 1))
        B = Val(Mid(emb, 2, 1))
        c = Val(Mid(emb, 3, 1))
        d = Val(Mid(emb, 4, 1))
        e = Val(Mid(emb, 5, 1))
        f = Val(Mid(emb, 6, 1))
        g = Val(Mid(emb, 7, 1))
        h = Val(Mid(emb, 8, 1))
        I = Val(Mid(emb, 9, 1))
        j = Val(Mid(emb, 10, 1))
        k = Val(Mid(emb, 11, 1))
        l = Val(Mid(emb, 12, 1))

        ch = Val(Mid(emb, 13, 1))

        Dim RES As Integer

        RES = 11 - ((a + g) * 7 + (B + h) * 6 + (c + I) * 5 + (d + j) * 4 + (e + k) * 3 + (f + l) * 2) Mod 11

        If RES = 11 Then RES = 0

        If RES = ch Then
            ValidateEMB = True
        Else
            ValidateEMB = False
        End If

        Exit Function
eX:
        ValidateEMB = False
    End Function