Excel VBA 사용자 양식 기존 날짜 유효성 검사

현재 날짜를 입력해야하는 텍스트 상자 (textbox1)에서 작업하고 있습니다. 그러나 지금까지 존재하지 않는 날짜 (예 : 40-40-2019)를 입력 할 수도 있습니다. 기존 날짜 만 사용하여 textbox1의 유효성을 검사하는 방법이 있습니까? 나는 현재 유럽 날짜 항목을 사용하므로 dd-mm-yyyy입니다. 아래 코드는 날짜를 표준 형식으로 변경합니다.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Me.TextBox1 = Format(Me.TextBox1, "DD-MM-YYYY")
End Sub

출력은 기존 날짜 함수일 것으로 예상합니다