Dim Txt$, i&, E$, Z1&, Z2&, Liste$()
 
  Txt = "Dein Text"
  ReDim Liste(Len(Txt) / 4)
  Z1 = 0: Z2 = 0
  For i = 1 To Len(Txt)
    E = Mid$(Txt, i, 1)
    If E <> " " Then
      Liste(Z1) = Liste(Z1) & E
      Z2 = Z2 + 1
      If Z2 = 4 Then
        Z2 = 0
        Z1 = Z1 + 1
      End If
    End If
  Next i
  ReDim Preserve Liste(Z1 - 1 + Sgn(Z2))
  For i = 0 To UBound(Liste)
    MsgBox Liste(i)
  Next i

Gruss,

Zardoz