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

Result:

 123-ABC-7890