أخى الفاضل / الجموعى
لقد أضفت هذا الكود فى حدث الخروج من الـ TextBox1 للتأكد من كتابة التاريخ بطريقة صحيحة
جرب كتابة أى حروف وليس أرقام ولاحظ النتيجة
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text <> "" Then
If IsDate(TextBox1.Text) Then
TextBox1.Text = Format(TextBox1.Text, "yyyy-mm-dd")
Else
MsgBox "من فضلك أدخل تاريخ صحيح"
Cancel = True
End If
End If
End Sub