Private Sub Text1_KeyPress(KeyAscii As Integer)
  CheckTime Text1, KeyAscii
End Sub
 
Private Sub CheckTime(Tbox As TextBox, KeyAscii As Integer)
 
  Tbox.MaxLength = 5
 
  Select Case KeyAscii
 
    Case 48 To 57 ' Zahlentasten
      If Len(Tbox.Text) = 2 Then 'Setzt einen Doppelpunkt nach den ersten 
      ' beiden Zahlen
        Tbox.Text = Tbox.Text & ":"
        Tbox.SelStart = Len(Tbox.Text) + 2
      End If
 
    Case 8 'Backspace
 
    Case Else 'alle weiteren Tasten
      KeyAscii = 0
 
  End Select
 
End Sub