UF öffnen - bei best. Bedingung TextBox löschen

Private Sub OptionButton1_Click()
TextBox1 = "01.01.1900"
TextBox13 = "01.01.1900"
TextBox1.ForeColor = &H80000006
TextBox13.ForeColor = &H80000006
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
MsgBox "Kein gültiges Datum!", vbCritical, "Falsches Datum"
TextBox1 = ""
MsgBox "Bitte geben Sie ein korrektes Datum ein!"
Cancel = True
Exit Sub
End If
End Sub

Nun wenn ich auf den optionButton klicke kommt die Fehlermeldung "Kein gültiges Datum". Wo liegt der Fehler?
Danke für eure Hilfe!!!
Gruß Frank H.