So zum Beispiel unter LS
ReplaceSubstring("Hallo Welt","Hallo","")
Function ReplaceSubstring(Byval Fullstr As String, Byval OldStr As String, Byval NewStr As String)
lenold = Len (oldstr)
pos = Instr (fullstr, oldstr)
Do While pos > 0 And oldstr <> ""
fullstr = Left (fullstr, pos - 1) & newstr & Mid (fullstr, pos + lenold)
pos = Instr (pos + Len (newstr), fullstr, oldstr)
Loop
ReplaceSubstring = fullstr
End Function