Fehler abfangen

Private Sub TextBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If IsNumeric(TextBox5) = False And TextBox5 <> "" Then
MsgBox " Sie dürfen nur Ziffern eingeben", _
vbCritical, "Error !!!"
TextBox5 = Left(TextBox5, Len(TextBox5) - 1)
'  TextBox5 = "00.00.0000"
' TextBox5 = "00:00:00"
TextBox5.SetFocus
With TextBox5
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub

Private Sub TextBox5_AfterUpdate()
If TextBox5.Value = "" Then
TextBox30.Value = "00.00.0000"
TextBox5 = "00:00:00"
End If
Range("G9").Value = Format(TextBox5.Text, "mm-dd-yyyy")
TextBox5.Text = Range("G9").Value
Label11.Caption = Range("G12").Value                    'Nutzd.Dauer in Tage
End Sub