CompareList - Compare an argument with a list of values

' Return the position of the argument in a list of values' or zero if the argument isn't included in the list' It works for both regular values and for objects'' This handy function can often save you a lengthy Select Case' statement or a complex series of If...ElseIf blocks'' Example: check whether a string is a valid continent name' If CompareList(aString, "America", "Europe", "Asia", "Africa",' "Australia") > 0 Then MsgBox "OK"
Function CompareList(ByVal Arg As Object, ByVal ParamArray Values() As Object) _
As Integer
Return Array.IndexOf(Values, Arg) + 1
End Function