Hola gracias por ayudarme
lo probe asi con varias palabras y ambos me dieron verdadeero
lo cual deberia dar falso porque ingrese una palabra prohibida en el primer ejemplo     
Código ASP:
Ver original- '''Funcion para prohibir ciertas letras en la direccion 
- Function filtrar_palabras(texto) 
-     Dim  palabrasVector, palabras_prohibidas, i, esCadenaValida 
-     palabras_prohibidas = "piso#apto#apartamento#oficina#" 
-     palabrasVector = Split(palabras_prohibidas, "#") 
-     esCadenaValida = true 
-     For i = 0 To UBound(palabrasVector) 
-         if instr(1,palabrasVector(i),texto) > 0 then 
-             esCadenaValida = false 
-             exit for 
-         end if 
-     Next 
-     filtrar_palabras = esCadenaValida 
- End Function 
-   
- Response.Write(filtrar_palabras("juan oficina") & "<br>") 
- Response.Write(filtrar_palabras("juan edificio") & "<br>")