Dim i As Integer
  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 z = 5 And i <> Len(Text1.Text) Then
    z = 0
    Text1.Text = txtausgabe & ":"
  End If
 
  Loop

  Dim i As Integer
  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 z = 5 And i <> Len(Text1.Text) Then
    z = 0
    txtausgabe = txtausgabe & ":"
  End If
 
  Text1.Text = txtausgabe
  Loop