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!

Something like ?

Public Sub Example()
Dim vCrit, vSearch, bCrit As Byte
vCrit = Array("said", "told", "asked")
For bCrit = LBound(vCrit) To UBound(vCrit)
    If IsNumeric(Application.Search(vCrit(bCrit), Cells(1, 1).Value)) Then
        MsgBox "a"
        Exit For
    End If
Next bCrit
End Sub

It would of course make most sense to store these words in a range on a sheet... you could then perhaps also think about using Evaluate.

There may well be other solutions (regex for ex.) ... the above is just one approach.