inputmaske til dato fortsat

Jeg har tidliger fået følgende kode fra Kabak. Jeg har behov for en lille ændring, således at det bliver muligt at forlade datofeltet med tabulatoren, uden at msgboxen aktiveres. Hvis en dato er påbegyndt, men forkert, så skal msgboxen aktiveres. Kan det ladet sig gøre?

Private Sub txtdato_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim søg As Date, Data As Variant, I As Long, StrSøg As String
    StrSøg = txtDato.Text   
    If StrSøg = "" Then Exit Sub   
    If UBound(Split(StrSøg, ",")) = 2 Then GoTo videre
    If UBound(Split(StrSøg, "-")) = 2 Then GoTo videre
      MsgBox "Fejl i indtastning, husk DD,MM,ÅÅÅÅ eller DD-MM-ÅÅÅÅ"
        txtDato.SelStart = 0
        txtDato.SelLength = Len(txtDato)
        Cancel = True
        Exit Sub
videre:
  If UBound(Split(StrSøg, ",")) = 2 Then
    søg = DateSerial(Split(StrSøg, ",")(2), Split(StrSøg, ",")(1), Split(StrSøg, ",")(0))
    txtDato.Text = Format(søg, "dd-mm-yyyy")  ' ændre 06 til 2006
  Else
    søg = DateSerial(Split(StrSøg, "-")(2), Split(StrSøg, "-")(1), Split(StrSøg, "-")(0))
    txtDato.Text = Format(søg, "dd-mm-yyyy")
End If

End Sub