String$="Dies ist ein Test, der ein bestimmtes Wort umwandelt"
NeuString$=ReplaceString(String$,"Test","!)%-")
Debug"Wenn das Wort Test geändert werden soll"
Debug""
Debug String$
Debug""
Debug NeuString$
Debug""
Debug "--------------------------------------"
NeuString$=ReplaceString(String$,"T","!")
NeuString$=ReplaceString(NeuString$,"e",")")
NeuString$=ReplaceString(NeuString$,"s","%")
NeuString$=ReplaceString(NeuString$,"t","-")
Debug "Wenn alle Buchstaben von Test, die im String vorhanden sind,"
Debug "geändert werden sollen"
Debug""
Debug String$
Debug""
Debug NeuString$