php str_replace equivalent

REM Function does only replace first occurence unlike the php one

Function StrReplace$(search$, replace$, subject$)
from = instr(subject$, search$)
    if from = 0 then
        StrReplace$ = "0"
    else
        till = from + len(search$)
        leng = len(subject$)
        StrReplace$ = Left$(subject$,from - 1) + replace$ + Right$(subject$,(leng - till + 1))
    end if
End Function