Private Sub Form_Load()
  Text1 = ""
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  CheckDate Text1, KeyAscii
End Sub
 
Private Sub CheckDate(Tbox As TextBox, KeyAscii As Integer)
 
      Tbox.MaxLength = 10 ' Hierbei das Format TT.MM.JJJJ
 
      Select Case KeyAscii
         Case 48 To 57 ' Zahlentasten
            If Len(Tbox.Text) = 2 Then ' Setzt einen Punkt nach den ersten 
            ' beiden Zahlen
               Tbox.Text = Tbox.Text & "."
               Tbox.SelStart = Len(Tbox.Text) + 2
            End If
 
            If Len(Tbox.Text) = 5 Then ' Setzt einen Punkt nach den ersten 4 
            ' Zahlen
               Tbox.Text = Tbox.Text & "."
               Tbox.SelStart = Len(Tbox.Text) + 2
            End If
         Case 8 ' Backspace
            ' Anweisung
         Case Else ' alle weiteren Tasten
            KeyAscii = 0
      End Select
End Sub