Function RemoveStuff(sIn as string, sRmv as string) as string
if len(sRmv) <> 1 then
msgbox "This is limited to single character removal",,"Sorry Charlie"
exit function
end if
dim LP as integer, sHold as string
for LP = 1 to len(sIn)
if mid(sIn,LP,1) = sRmv then
' by pass this character
else
' save this character
sHold = sHold & mid(sIn,LP,1)
end if
next LP
RemoveStuff = sHold
exit function