Hallo Gast43808,

ich muss zugeben: Das ist die Raketenlösung. Hier kann ich nähmlich in einer Zeile inkl. Funktion alles erledigen. Hier das Ergebnis für alle die es interessiert:

Im Sub:

subject = ersetze(subject, "\s+(-\s+-[A-Z]+-\s+)?\d+( KB)?$", " ")

Funktion:

Public Function ersetze(myString As String, Muster As String, Ersatz As String)
Dim regex As New RegExp

regex.Global = True
regex.Pattern = Muster
Set Fundstellen = regex.Execute(myString)

ersetze = regex.Replace(myString, Ersatz)

End Function