Procurar parte do texto - InStr e QueryString

Caros amigos,

achei esta função na web e está funcionando mas preciso que a função pesquise parte da palavra que está na string.

Se eu digito a palavra "carro" funciona mas se digito "carros" já não dá certo, por causa do "s". Queria que a função procurasse parte do texto que está nas QueryString, alguém sabe como?

Function find(element, arr)
find = False
For i=0 To Ubound(arr)
If InStr(arr(i), element)>0 Then
find = True
Exit Function
End If
Next
End Function

dim palavra, procurar

catname = Request.QueryString("Cat")

palavra = LCase(catname)
procurar = Array("carro","veiculo")

If find(palavra, procurar) Then
response.write "Yes"
End If

Obrigado pela atenção de todos.