' 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) + 1End Function