Textbox karakter sayısı 13 olduğunda sayfadan sorgulama

[beza]

Merhaba,
Textbox1 karakter sayısı 13 olarak sınırlı. TextBox1_Change() altına aşağıdaki kodları yazdığımda girilen ilk karakterden sonra sorgulama yapıyor ve hata mesajı veriyor.
Yapmak istediğim karakter sayısı 13 olduğunda sayfadan sorgulasın, yoksa hata mesajı versin. Bu şekilde bir düzenleme yapılabilir mi? (TextBox1_Change() altına yazmamın sebebi buton kullanmadan sorgulama yapmak.)

Private Sub TextBox1_Change()
' Seçilen ürün bilgiletini sayfadan textbox ve comboboxlara getirir.
Sheets("Urun").Select
Set i = Sheets("Urun").Range("A:A").Find(TextBox1.Value, , xlValues, xlWhole)
If Not i Is Nothing Then
TextBox1 = i.Offset(0, 0).Value
ComboBox1 = i.Offset(0, 1).Value
ComboBox2 = i.Offset(0, 2).Value
ComboBox3 = i.Offset(0, 3).Value
TextBox2 = i.Offset(0, 4).Value
Else
MsgBox (" ÜRÜN BULUNAMADI. ÜRÜN KAYITLI DEĞİL !!!")
End If
TextBox6.Text = Format(Now, "dd mm yyyy")
TextBox7.Text = Format(Now, "hh:mm:ss")
End Sub

 

[Mdemir63]

Selam

diğer kodlarınızı bu kodların arasında kullanarak deneyiniz

    If Len(TextBox1.Text) = 13 Then
      
      
      
    End If

 

[beza]

Mdemir Bey Merhaba,
İstenilen bu idi. Ayırdığınız zaman ve paylaştığınız bilgi için teşekkür ederim.

 

[Mdemir63]

Mdemir Bey Merhaba,
İstenilen bu idi. Ayırdığınız zaman ve paylaştığınız bilgi için teşekkür ederim.

Rica Ederim.
İyi çalışmalar