Dim l As String = "oleum 1=Öl=das=Öl"
 
        Dim ber As New List(Of String)(l.Split("="))
        Dim beg As String = ber(0)
        Dim bed As String = ber(1) & ", "
        ber.RemoveRange(0, 2)
        bed &= Join(ber.ToArray(), " ")

________
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