Falsches Datum in TextBox

   If Me.TextBox10.Value  "" Then
If Not IsDate(Me.TextBox10.Value) Then
MsgBox "Sie haben keine Daten zum erfassen eingegeben" & _
48, "   Hinweis für " & Application.UserName
With Me.TextBox10
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
Else
MsgBox "Sie müssen ein Datum für das Produktionsende eingeben.", _
48, "   Hinweis für " & Application.UserName
Me.TextBox10.SetFocus
Exit Sub
End If

        Range("R2") = CDate(TextBox10) 'Produktionsende