[ChrisGT7]

Έκανα μερικές τροποποιήσεις για να μπορεί να χρησιμοποιηθεί και σε Excel ώστε να ελέγχει αν ένας ελληνικός ΑΦΜ είναι ορθός και να τον επιστρέφει πλήρες (αν του λείπουν μηδενικά):

Function AFM(Str As String) As String
    Dim I As Long, Sum As Long
    
    If Len(Str) > 9 Or Not IsNumeric(Str) Then
        AFM = "Μη έγκυρος Α.Φ.Μ."
        Exit Function
    End If
    
    Str = String(9 - Len(Str), "0") & Str
    For I = 8 To 1 Step -1
        Sum = Sum + Val(Mid(Str, I, 1)) * 2 ^ (9 - I)
    Next
    AFM = IIf((Sum Mod 11) Mod 10 = Val(Right(Str, 1)), Str, "Μη έγκυρος Α.Φ.Μ.")
End Function

Σπύρος23, χρησιμοποιώντας τον παραπάνω κώδικα, δημιουργείς μια συνάρτηση AFM() που βάζοντας ως τιμή το κελί που περιέχει τον ΑΦΜ, κάνει τους απαραίτητους ελέγχους και σου επιστρέψει "Μη έγκυρος ΑΦΜ" ή τον ΑΦΜ με επιπλέον μηδενικά, αν παραλείπονται.