NAME             LEISTUNG          VON    BIS    VORGANG   ST OPT.DAT  BUCH.DAT

Dim ts As String = _
"NAME             LEISTUNG          VON    BIS    VORGANG   ST OPT.DAT " & _
"BUCH.DAT"
 
Dim lengths As New List(Of Integer), last As Integer = -1
 
For i As Integer = 0 To ts.Length - 2
   If Char.IsSeparator(CChar(ts(i))) AndAlso 
      Not Char.IsSeparator(CChar(ts(i + 1))) Then
          lengths.Add(i - last)
          last = i
   End If
Next i
lengths.Add(ts.Length - 1 - last)

        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