سوال در مورد وارد کردن تاریخ

[میثم مقدم نیا]

سلام
به صورت ذیل اصلاحش کنید
..

 If Len(txt) = 5 Then 
        If CInt(Mid(txt, 1, 4)) < 1395 Or CInt(Mid(txt, 1, 4)) > 1400 Then 
msgbox("مقدار سال حداقل 1395 و حد اکثر 1400 انتخاب شود" 
    Me.TextBox4.Text = ""
End If
    End If 

.. ,ولی اگر در صورت اشتباه کادر تاریخ رو خالی نکنید بهتره چون این باعث نارضایتی کاربر شده و اینکه پاک نکردن باعث میشه کاربر بفهمه کدوم قسمت رو اشتباه نوشته

با سلام مجدد
آقا رسول این کد را اضافه کردم جواب نداد پیغام خطا میده

Private Sub TextBox4_Change()
    If Len(TextBox4.Value) = 8 Then TextBox4.Value = Format(TextBox4.Value, "####/##/##")
    Dim txt, txtA As Variant
    txt = Me.TextBox4.Text
        If CInt(Mid(txt, 1, 4)) < 1395 Or CInt(Mid(txt, 1, 4)) > 1400 Then MsgBox "مقدار سال حداقل 1395 و حد اکثر 1400 انتخاب شود", vbMsgBoxRight, "تاريخ اشتباه است              "
    Me.TextBox4.Text = ""
End If
    End If
If Len(txt) = 6 Then
        txtA = Mid(txt, 5, 2)
        If CInt(txtA) > 12 Then
            MsgBox "مقدار ماه حد اکثر 12 است", vbMsgBoxRight, "تاريخ اشتباه است       "
            Me.TextBox4.Text = Mid(txt, 1, 4)
            Exit Sub
        End If
    ElseIf Len(txt) = 10 Then
        txtA = Mid(txt, 9, 2)
        If CInt(txtA) > 31 Then
            MsgBox "مقدار روز حد اکثر 31 است", vbMsgBoxRight, "تاريخ اشتباه است       "
            Me.TextBox4.Text = Mid(txt, 1, 8)
            Exit Sub
        End If
    End If
End Sub 

اینم دستور کلیش ببینید کجا اشتباه کردم راهنماییم کنید