Gruss,

Zardoz

  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

   Dim text As String = _
      "Ich; chb; hbr; bra: rau; auc; uch; che; heh; ehi; hil; ilf; lfe"
 
   'Aufspalten am Strichpunkt
   Dim parts() As String = text.Split(";"c)
 
   Dim freq As New Dictionary(Of String, Integer)
 
   For i As Integer = 0 To parts.Length - 1
       parts(i) = parts(i).Trim 'Leerzeichen Anfang/Ende entfernen
       If freq.ContainsKey(parts(i)) Then
          'Element bereits vorhanden: zählen
          freq(parts(i)) += 1
       Else
          'Element hinzufügen
          freq.Add(parts(i), 1)
       End If
   Next i

  Dim i&, j&, Z1&, u&, Doppelt$(), flgFound() As Boolean
 
  u = UBound(Liste)
  ReDim Doppelt(u), flgFound(u)
  Z1 = -1
  For i = 0 To u - 1
    If flgFound(i) = False Then
      For j = i + 1 To u
        If flgFound(j) = False Then
          If Liste(i) = Liste(j) Then
            flgFound(i) = True
            flgFound(j) = True
          End If
        End If
      Next j
      If flgFound(i) = True Then
        Z1 = Z1 + 1
        Doppelt(Z1) = Liste(i)
      End If
    End If
  Next i
  Erase flgFound
  If Z1 >= 0 Then
    ReDim Preserve Doppelt(Z1)
    MsgBox "Doppelt:" & vbCr & Join(Doppelt, vbCr)
  Else
    MsgBox "Nichts gefunden."
  End If

Gruss,

Zardoz