Hello everyone

Can anyone help me to determine how to do this: I need to write a macro that will search certain cell to find specific strings that cell *may* contain. For example, say I would like to know exacly what fruits from the group {"apples," "bananas," and "pears"} are listed in each cell. Then, if a cell contains the text "Today I had apples for lunch," or "Yesterday I had pears for lunch," the macro would return "apples" or "pears," respectively

Any clue? Thank you very much in advance.