Dim z As Integer
  Dim txtausgabe
 
  Do Until i = Len(Text1.Text)
  i = i + 1
  z = z + 1
  txtausgabe = txtausgabe & Mid(Text1.Text, i, 1)
 
  If Mid(Text1.Text, i + 1, 1) <> ":" Then
  Debug.Print Mid(Text1.Text, i, 1)
    If z = 5 And i <> Len(Text1.Text) Then
        z = 0
        txtausgabe = txtausgabe & ":"
    End If
   Else
   Debug.Print Mid(Text1.Text, i, 1)
    z = -1
  End If
 
  Loop
  Text1.Text = txtausgabe