TextBox'tan çıkarken mesaj veriyor

[Ongun]

Günaydın arkadaşlar,

Aşağıdaki kodlarla ilgili örnek dosya ilişikte, Cancel=True yazılı olan yerde bir sorun var. Şöyleki, hatalı ay veya yıl girişi yapınca aynı textbox`a odaklanma oluyor. Buraya kadar bir sorun yok, ancak textbox`a bir şey yazmadan başka bir texbox`a geçmek istediğimde yine uyarı veriyor. Bu sorunu bir türlü çözemedim.
:kafa:
:kafa:

Lütfen yardımcı olurmusunuz. Saygılarımla

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If IsDate(TextBox1.Value) Then TextBox1 = Format(TextBox1, "yyyy""/""mm")
If IsDate(TextBox1.Text) = False Then GoTo 10
If Year(TextBox1) < 1996 Or Year(TextBox1) > 2010 Then GoTo 10
Exit Sub
10
MsgBox "HATALI GİRİŞ YAPTINIZ.", vbInformation, "UYARI"
TextBox1 = ""
Cancel = True ' BURADA BİR SORUN VAR AMA ÇÖZEMEDİM.
End Sub

 

[Ongun]

:yardim: :yardim: :yardim:

 

[isakarakus]

On Error Resume Next
komutları yerine
If TextBox1.Text = "" Then Exit Sub
yazarsanız işlem çözülecektir..

 

[xxrt]

Sayın Ongun, aynı başlık altına ayrı soru sorarsanız,daha önceki başlık cevaplanması nedeni ile sorunuza yanıt almakta gecikirsiniz.
Bu nedenle ayrı başlık açarak sorunuzu sorunuz.
Şimdilik son sorunuzu bu bölümde ayrı konu açarak taşıyorum.

 

[Ongun]

Sayın xxrt, uyarınız için teşekkürler, buna dikkat edeceğim. Saygılarımla,

Sayın isakarakus, sorunum çözüldü. k::
Elinize yüreğinize sağlık, çok teşekkür ederim.
Saygılarımla :dua:
:mutlu: