Dim Criteria
Criteria = Array("refund", "exchange", "return") '<--- all lowercase
Dim SearchedString as ??? Range? Array? String? Depends on Data Structure
SearchedString = ???
For i = Lbound(Criteria) To Ubound(Criteria)
Refund = Instr(LCase(SearchedString), Criteria(i))
If Refund then Exit For
Next
Possible usage
For Each Cel in Range("B:B")
If RefundDue(Cel) then cel.Offset(, 1) = "Refund this Item"
Next
End...
Function RefundDue(SearchedString As Variant) As Boolean
Const Criteria = Array("refund", "exchange", "return")
For i = Lbound(Criteria) To Ubound(Criteria)
RefundDue = Instr(LCase(SearchedString), Criteria(i))
If RefundDue then Exit For
Next
End Function