Assigning Strings To An Array

Hello,

My question is about assigning strings to an array.

The following code searches a cell for three strings (said, told, asked):

If InStr(Cells(1,1).Value, "said") > 0 Or _
   InStr(Cells(1,1).Value, "told") > 0 Or _
   InStr(Cells(1,1).Value, "asked") > 0 Then

That works fine and all. But I have a lot more than three strings to search for...

So, my question is, is there a way to assign those three words to an array, so that each word is an element, and then check for the elements of the array in a string. My guess is it would look something like this:

If InStr(Cells(1,1).Value, Verb(2)) > 0 Then

Is something like that possible? How would I code that?

I'm just looking to be efficient and save myself a lot of unnecessary typing.

Thanks for any and all help!