DIM A$ '-------------------------------------------------- ' REPLACE$(main$, match$, change$) ' ------------------------------------------------- A$ = REPLACE$("1234567890", "456", "-ABC-") PRINT A$