quitar palabas de frases en una variable

[lexus]

hola muchas gracias por tu colaboracion,
lo he probado asi:


comunes = Array("", " y ", " si ", " no ", " de ", " las ", " los ", " e ")
cadena = Request("palabras")
For i = 1 to Ubond(comunes)
If Instr(cadena, array(i)) <> 0 Then
Replace(cadena, array(i), "")
quitadas = quitadas & ", " & array(i)
End If
Next
%>Se quitaron estas palabras: <%=quitadas%>


y me sale este error:

Error de compilación de Microsoft VBScript error '800a0414'

No se puede utilizar paréntesis al llamar a Sub

/decali/spider/buscar2.asp, line 26

Replace(cadena, array(i), "")
-----------------------------^


que puede ser?