Procurar parte do texto - InStr e QueryString

[Inside 2]

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.