ciao
puoi usare il metodo Instr
if Instr(1,"stringa da cercare","StringaIntera",vbtextcompare)<>0 then
se è diverso di 0 vuol dire che la parola esiste dentro al stringa intera altrimenti
no
fammi sapere