VBA oder VB6 finden oder ersetzen Sie die Zeichenfolge am Ende

rlpStr = StrReverse(Replace(StrReverse(str), StrReverse("Find"),  StrReverse("Replace"), , 1))
Tense Trout