{{Cl|IF...THEN|IF}} x {{Cl|THEN}} {{Cl|PRINT}} text$; x
{{Cl|END}}
{{Cl|FUNCTION}} Replace (text$, old$, new$) 'can also be used as a {{Cl|SUB}} without the count assignment
{{Cl|DO...LOOP|DO}}
find = {{Cl|INSTR}}(start + 1, text$, old$) 'find location of a word in text
{{Cl|IF...THEN|IF}} find {{Cl|THEN}}
count = count + 1
first$ = {{Cl|LEFT$}}(text$, find - 1) 'text before word including spaces
last$ = {{Cl|RIGHT$}}(text$, {{Cl|LEN}}(text$) - (find + {{Cl|LEN}}(old$) - 1)) 'text after word
text$ = first$ + new$ + last$
{{Cl|END IF}}
start = find
{{Cl|LOOP}} {{Cl|WHILE}} find
Replace = count 'function returns the number of replaced words. Comment out in SUB
{{Cl|END FUNCTION}} '' ''
{{CodeEnd}}
{{OutputStart}}This is my sentence to change my words.
This is your sentence to change your words.{{OutputEnd}}
: ''Note:'' The [[MID$ (statement)|MID$]] statement can only substitute words or sections of the original string length. It cannot change the string length.