ItemIn

Public Function ItemIn(ByVal FindItem As Variant, ByVal Paramarray Options As Variant) As Boolean

Searches a value in a list of options and returns True if found.

Please note that the ItemIn function can be simplified by using the In operator, as in: If pColorName In {"red", "green", "Blue"} Then ...

Public Function TestIsFruit(pFoodName As String) As Boolean
   Return ItemIn(LCase(pFoodName), "apple", "banana", "orange", "grape", "strawberry")
End Function