quitar palabras iguales entre dos variables

[debspain]

dim buscar,quitar,palabras_quitar,cadena_resul
buscar = "esta variable guarda todo el texto que se quiera meter"
quitar = "el,la,los,que,esta"

palabras_quitar = split(quitar,",")
cadena_resul = buscar

for x = 0 to ubound(palabras_quitar)
cadena_resul = replace(cadena_Resul,palabras_quitar(x),"")
next



espero que te sirva!!!!