Dim res As New System.Text.StringBuilder
        Dim txt As String = "    wert1      wert2         wert3  Wert4         "
        Dim lastc As Char
 
        For Each c As Char In txt
            If c <> " "c OrElse lastc <> " "c Then
                res.Append(c)
            End If
            lastc = c
        Next
        Debug.WriteLine(res.ToString())

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist