RTrimStr

Function RTrimStr(ByVal BigString, SmallString as String) as String

Löscht einen SmallString aus BigString wenn der zu löschende String am Ende steht, ansonsten wird der String wieder ganz zurückgegeben.

Bigstring = "Hallo Welt"

NewStr=RTrimStr(BigString,"Welt")

Dann -> NewStr="Hallo "