Αυτό κάπου πρέπει να το βρήκα και να το τροποποίησα λίγο, αν και ήξερα από παλαιότερα τον αλγόριθμο. Anyway, δεν θυμάμαι περισσότερα, αλλά ο κώδικας έχει ως εξής: Public Module VatId Public Function IsValid( ByVal VatId As String ) As Boolean 'if afm