Aşağıdaki kodu modüle ekle,

Function TCKimlikNoYazimKontrol(tcid) As Boolean





Dim D(1 To 11) As Integer

    For N = 1 To 11

D(N) = Mid(tcid, N, 1)

    Next

    top1 = D(1) + D(3) + D(5) + D(7) + D(9)

    top2 = D(2) + D(4) + D(6) + D(8)

    

    cd1 = (10 - (((3 * top1) + top2) Mod 10)) Mod 10

    cd2 = (10 - (((3 * (top2 + cd1)) + top1) Mod 10)) Mod 10

    If cd1 = D(10) And cd2 = D(11) Then

        TCKimlikNoYazimKontrol = True

        Else

        TCKimlikNoYazimKontrol = False

End If

End Function

formdaki tc kimlik numarası yazılan metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

If TCKimlikNoYazimKontrol(TC_KİMLİK_NO.Value) = False Then



 MsgBox "Yazdığınız " & [TC_KİMLİK_NO] & " Hatalı TC Kimlik No " & Chr(10) & " Lütfen Kontrol Ediniz.", 48, "TC KİMLİK NO HATALI"

End If