RemoveFromString3

==StringChop$ function==
A small function to remove any occurrences of one string from another.
----
> The brand new StringChop$ 9000!!! IT SLICES!! IT DICES!! (Does not Julienne at this time). This function simply locates the position of a 'find' string within a 'source' string, grabs everything before and after it, combines those two as a new 'source' string and repeats the process on that. Voila! Perfect potatoes every time! Delicious test program included! Enjoy!
[[code format="vbnet"]]
input "Original string: "; orig$
if (orig$ = "") then end

[loop]
    input "Character(s) to chop: "; chop$
    if (chop$ = "") then end

    orig$ = StringChop$(orig$, chop$)
    if (orig$ = "") then end

    print "Chopped string: "; orig$
    goto [loop]

function StringChop$(StringChop$,c$)
    cLen = len(c$)
    do
        cPos        = instr(StringChop$,c$)

        if not(cPos) then exit do

        pre$        = left$(StringChop$, cPos - 1)
        post$       = mid$(StringChop$,  cPos + cLen)
        StringChop$ = pre$ + post$
    loop while 1
end function
[[code]]