Devi usare i caratteri speciali di vb per la like, guarda nell'help.

Esempio: .... Like "*" & UCase(NomeDaCercare) & "*"

Ignora quello che viene prima e dopo la parola cercata.