Dim sText As String = "NAME             LEISTUNG          VON    BIS   " & _
          "VORGANG   ST OPT.DAT BUCH.DAT"
 
        Dim i As Integer = 0
 
        For i = 65 To 90
            sText = sText.Replace(" " & Chr(i), " |" & Chr(i))
        Next i
 
        Dim arr() As String = sText.Split("|")
        Dim ht As new Hashtable
 
        For i = 0 To UBound(arr)
            ht.Add(arr(i).Trim, arr(i).Length)
        Next
 
        For Each Eintrag As DictionaryEntry In ht
            MessageBox.Show(Eintrag.Key & " / " & Eintrag.Value)
        Next

EALA FREYA FRESENA