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