Textbox überprüfen

Private Sub TextBox1_Change()
If TextBox1.Tag = "1" = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "."
ElseIf Len(TextBox1) = 5 Then
If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", "")) 

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 > "" Then
TextBox1 = CDate(TextBox1)
TextBox1.BackColor = vbGreen
Else
MsgBox "Bitte einen korrekten Datumswert eingeben! Format: dd.mm.yyyy"
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
Cancel = True
End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) " springt Curser auf nächste  _
TB2.
Was mache ich hier bitte falsch?
Besten Dank für eure Hilfe.
Gruss
Peter