Private Sub Text1_KeyPress(KeyAscii As Integer)
 
On Error GoTo Fehlerbehandlung
 
Dim Eingabe As String
Dim Cursor As Long
Cursor = Text1.SelStart
Eingabe = Left(Text1.Text, Text1.SelStart)
Eingabe = Eingabe & Chr(KeyAscii)
Eingabe = Eingabe & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - 1)
Text1.Text = Eingabe
Text1.SelStart = Cursor + 1
KeyAscii = 0
Exit Sub
Fehlerbehandlung:
MsgBox "Fehlerhafte Eingabe!" & vbCrLf & "Nur '00:00' bei der Eingabe" & _
  "möglich!", _
vbInformation, "Info"
End Sub