Binaryworld - CompareList - Compare an argument with a list of values ... [ VB -> Datastructure ]

' 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(Arg As Variant, ParamArray Values() As Variant) As Boolean
  Dim index As Long
  If IsObject(Arg) Then
    ' comparison between objects
    For index = 0 To UBound(Values)
      If Not IsObject(Values(index)) Then
        ' argument isn't an object, skip it
      ElseIf Arg Is Values(index) Then
        CompareList = index
        Exit Function
      End If
    Next
  Else
    ' comparison between non-object values
    For index = 0 To UBound(Values)
      If IsObject(Values(index)) Then
        ' argument is an object, skip it
      ElseIf Arg = Values(index) Then
        CompareList = index
        Exit Function
      End If
    Next
  End If
End Function