Binaryworld - CompareValue - Check whether a value is in a list of values ... [ VB -> Language ]

' Compares a numeric or string value with a list of other values.
' Returns the 1-based index of the matching value, or zero if the
' value doesn't appear in the list.
' String comparisons are case-sensitive.
'
' This function can conveniently replace a Select Case or a list
' of ORed comparison, e.g. you can replace the following line
'    If s = "one" Or s = "Two" Or s = "Three" Then
' with the more concise
'    If CompareValue(s, "One", "Two", "Three") Then

Function CompareValue(value As Variant, ParamArray valueList() As Variant) As _
  Integer
  Dim index As Integer
  For index = 0 To UBound(valueList)
    If value = valueList(index) Then
      CompareValue = index + 1
      Exit For
    End If
  Next
End Function