What do you want, to check that it is there, or its position, or what?

myVar = Instr(1,"Jeans are popular among the young.","popular")

returns its position assuming it exists

--

HTH

RP
(remove nothere from the email address if mailing direct)


"myBasic" wrote in message
...
Hello everybody,

Please kindly tell how to extract the key word "popular " by VBA function,
say Mid, how to:

Dim theString as String
theString = "Jeans are popular among the young."

Thanks & Regards.