karakter sayısı belirleme

[simsek3131]

değerli arkadaşlar buraya T.C kimlik alanı 11 karakter olmalı altında veya üstünde bir karakter girldiğinde uyarı vermesini istiyorum bir türlü yapamadım yardımc olursanız memnun olurum

 

[simsek3131]

Private Sub CommandButton1_Click()
Sheets("Data").Select
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox "ADI,SOYADI VE T.C. KİMLİK ALANLARI BOŞ GEÇİLEMEZ", vbCritical, "BOŞ ALAN"
Exit Sub
End If

Son_Dolu_Satir = Sheets("Data").Range("b65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Data").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("Data").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text

MsgBox " Kayıt tamamlandı", vbCritical, "TAMAM"

Unload UserForm1
For d = [d65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("d2:d" & d), Cells(d, "d")) = 1 Then
Exit Sub
End If

If WorksheetFunction.CountIf(Range("d2:d" & d), Cells(d, "d")) > 1 Then Rows(d).Delete
MsgBox " Çift TC KİMLİK kaydı bulundu ve son girişiniz iptal edildi.", vbCritical, "MÜKERRER"
Next

ThisWorkbook.Save
End Sub

 

[simsek3131]

Arkadaşlar değerli üstatlar konu hakkında yardım edecek bir arkadaş yokmu