Zitat:

... hatte nur gehofft, dass es evtl. schon eine fertige, schnellere Lösung gibt

Const muster = "(((?'auf'\{0})[^\{0}\{1}]*)+((?'zu-auf'\{1})[^\{0}\{1}]*)+)*(?(" & _
  "auf)(?!))$"
Dim mu = String.Format(muster, "{", "}") 'Klammertyp einfügen
Dim m As Match = Regex.Match(s, mu, RegexOptions.Singleline Or _
  RegexOptions.ExplicitCapture)
For Each c In m.Groups(2).Captures.Cast(Of Capture)
  'über c die Ergebnisse abrufen
Next