[ChrisGT7]

Τότε η παρακάτω συνάρτηση πρέπει να χρησιμοποιηθεί μέσω VBA για τον έλεγχο ορθότητας ΑΦΜ:

Function ValidAFM(Afm As String) As Boolean
    ValidAFM = False
    If Len(Trim(Afm)) = 9 Then
        Dim Sum As Long
        For I = 8 To 1 Step -1
            Sum = Sum + Val(Mid(Afm, I, 1)) * 2 ^ (9 - I)
        Next
        ValidAFM = (((Sum Mod 11) Mod 10) = Val(Right(Afm, 1)))
    End If
End Function

Προσοχή όμως: Η παραπάνω συνάρτηση ελέγχει αν ένας ΑΦΜ είναι σωστός, όχι αν υπάρχει στην εφορία.