Public Function tcnum(tcno As String) As String
If Len(tcno) <> 11 Then
tcnum = "TC Kimlik No 11 karekter olmalıdır"
Exit Function
End If
 
If Not IsNumeric(tcno) Then
tcnum = "TC Kimlik No rakkamlardan oluşmalı"
Exit Function
End If
Dim a() As Variant
Dim i As Integer
ReDim a(11)
For i = 0 To 10
a(i) = CInt(Mid(tcno, i + 1, 1))
Next
tespit = a(0) + a(1) + a(2) + a(3) + a(4) + a(5) + a(6) + a(7) + a(8) + a(9) + a(10)
 
tekrakkamtoplam = (a(0) + a(2) + a(4) + a(6) + a(8)) * 7
çiftrakkamtoplam = a(1) + a(3) + a(5) + a(7)
onuncurakkam = (tekrakkamtoplam - çiftrakkamtoplam) Mod 10
onbirincirakkam = (a(0) + a(1) + a(2) + a(3) + a(4) + a(5) + a(6) + a(7) + a(8) + onuncurakkam) Mod 10
If a(9) = onuncurakkam And a(10) = onbirincirakkam Then
tcnum = "Doğru"
Else
tcnum = "TC Kimlik Numarasını Hatalı girdiniz"
End If
End Function

On Error Resume Next ' alan boş olduğundan runtime 94 hatası vermekte
Dim a As String, b, c As Integer, rakm As String
If TCNo = "" Then: Exit Sub
a = Len(TCNo)
b = 11 - a
c = a - 11
rakm = Len(TCNo)
If rakm > 11 Then
rakm = "Fazla"
ElseIf rakm < 11 Then
rakm = "Eksik"
End If
If Len(TCNo) <> 11 Then
MsgBox "TC NO " & TCNo & vbCr & vbCr & "( " & Abs(b) & " )" & " Rakam " & rakm & " Girdiniz", vbInformation, "A-Yapı"
TCNo.SetFocus
Exit Sub
Cancel = -1
Else
Cancel = False
End If

function CheckTCKimlikNo(sender,args)
{
 var textBoxValue = args.Value;
 
 if (textBoxValue == undefined || textBoxValue.length == 0)
  {args.IsValid=true;return;
  }
 
 if (textBoxValue.length != 11)
  {args.IsValid=false;return;
  }
 
 var tCKimlikNo = new Number(textBoxValue);
 var tmp = Math.floor(tCKimlikNo / 100);
 var tmp1 = Math.floor(tCKimlikNo / 100);
 var odd_sum, even_sum, total, chkDigit2, chkDigit1;
 var NumArray = new Array();
 
 for (i = 8; i >= 0; i--)
  {
   NumArray.push(tmp1 % 10);
   tmp1 = Math.floor(tmp1 / 10);
  }
 
  odd_sum = NumArray[8] + NumArray[6] + NumArray[4] + NumArray[2] + NumArray[0];
  even_sum = NumArray[7] + NumArray[5] + NumArray[3] + NumArray[1];
  total = odd_sum * 3 + even_sum;
  chkDigit1 = (10 - (total % 10)) % 10;
 
  odd_sum = chkDigit1 + NumArray[7] + NumArray[5] + NumArray[3] + NumArray[1];
  even_sum = NumArray[8] + NumArray[6] + NumArray[4] + NumArray[2] + NumArray[0];
  total = odd_sum * 3 + even_sum;
  chkDigit2 = (10 - (total % 10)) % 10;
  tmp = tmp * 100 + chkDigit1 * 10 + chkDigit2;
 
  if (tmp == tCKimlikNo)
   {args.IsValid=true;
   }
  else
   {args.IsValid=false;
   }
}

Function Tc_Dogrulama(TcNo As Double) As Boolean
    Dim Arr(1 To 9)    As Byte
    Dim Byt            As Byte
    Dim Tekler_Toplam  As Integer
    Dim Ciftler_Toplam As Integer
    Dim Hane10_Toplam  As Integer
    Dim Hane10_Kalan   As Integer
    Dim Hane11_Toplam  As Integer
    Dim Hane11_Kalan   As Integer    
    
    With CreateObject("VBScript.Regexp")
        .Pattern = "\b[1-8]\d{9}[02468]\b"
        If .test(TcNo) = False Then
            Tc_Dogrulama = False
            MsgBox "Biçim uygun değil!!!", vbExclamation
            Exit Function
        End If
    End With
    
    For Byt = 1 To 9
        Arr(Byt) = Mid(TcNo, Byt, 1)
    Next
    
    Tekler_Toplam = Arr(1) + Arr(3) + Arr(5) + Arr(7) + Arr(9)
    Ciftler_Toplam = Arr(2) + Arr(4) + Arr(6) + Arr(8)
    
    Hane10_Toplam = (Tekler_Toplam * 3) + Ciftler_Toplam
    Hane10_Kalan = (10 - (Hane10_Toplam Mod 10)) Mod 10
    
    Hane11_Toplam = ((Ciftler_Toplam + Hane10_Kalan) * 3) + Tekler_Toplam
    Hane11_Kalan = (10 - (Hane11_Toplam Mod 10)) Mod 10
    
    If TcNo = CDbl(Left(TcNo, 9) & Hane10_Kalan & Hane11_Kalan) Then
        Tc_Dogrulama = True
    Else
        Tc_Dogrulama = False
    End If
End Function