Varrendo conteúdo de campo da tabela

Olá!

estou tentando comparar uma parte do conteúdo de um campo da tabela com um retorno do usuário. Tentei usar o InStr mais não funciona... segue o código dessa parte:

ProcuraValue = Server.URLEncode(CStr(item)) 'value retornado do formuláriotxtBloco = rs("txtBloco)if InStr(0,txtBloco,ProcuraValue,1) <> 0 then checar = "selected"end if

Alguém tem outra solução pra eu conseguir fazer essa comparação?

o erro foi esse:

Erro de tempo de execução do Microsoft VBScript error '800a0005' Chamada de procedimento ou argumento inválido: 'InStr' /projetos1/CPRH/portal/site/ind-online/ctudo-form-fim.asp, line 34

valeu!!!!