Dim sTemp As String
  Dim i As Long
 
  Text1.Text = Replace(Text1.Text, " ", "")
  sTemp = ""
  For i = 1 To Len(Text1.Text)
    sTemp = sTemp & Mid$(Text1.Text, i, 1)
    If i Mod 4 = 0 Then sTemp = sTemp & " "
  Next i
  Text1.Text = sTemp

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de