DIM A$

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

PRINT A$

Result:

123-ABC-7890