textbox'ta üç karakterden sonra kod çalıştırma

[algil]

Merhaba Arkadaşlar

Bir textbox'ım var ve aşağıdaki kodu çalıştırıyorum.

Private Sub TextBox30_Change()
If OptionButton1 = True Then Label27.Caption = OptionButton1.Caption & Format(TextBox30, "000")
If OptionButton2 = True Then Label27.Caption = OptionButton2.Caption & Format(TextBox30, "000")
On Error Resume Next
If [EkipmanList!h5:h65536].Find(Label27.Caption) = False Then
reset
MsgBox Label27.Caption & " nolu kayıt bulunamadı.", vbExclamation, "UYARI"
Exit Sub
End If
For i = 1 To 22
Controls("TextBox" & i) = s1.Cells([Sheet1!h5:h65536].Find(Label27.Caption).Row, i)
Next i
End Sub

Bu kodun Textbox30 a üç karakter girişi yapıldıktan sonra çalışmasını istiyorum. Çok uğraştım ama yapamadım. Bunu yapabilirmiyiz?

 

[danersin]

tam çıkıyordum umarım saçma cevap olmaz ama
direk 2. satırda
if len(textbox30)<3 then exit sub

çalışmazmı.

 

[osmantelci]

Private Sub TextBox30_Change()
If Len(TextBox30) = 3 Then
MsgBox "alt satırdaki kodları çalıştır"
End If
End Sub

 

[algil]

Sn. Danersin
Teşekkürler istediğim oldu.