Private Sub Text1_LostFocus()
  ' Doppelpunkte einfügen
  Dim i As Long
  Dim sText As String
 
  With Text1
    For i = 1 To Len(.Text)
      sText = sText & Mid$(.Text, i, 1)
      If i Mod 2 = 0 And i < Len(.Text) Then
        sText = sText & ":"
      End If
    Next i
  End With
  Text1.Text = sText
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de