Author  

Language  

Operating Systems  

Option Explicit

Public Function IsInArray(FindValue As Variant, arrSearch As Variant) As Boolean
    On Error GoTo LocalError
    If Not IsArray(arrSearch) Then Exit Function
    If Not IsNumeric(FindValue) Then FindValue = UCase(FindValue)
    IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & vbNullChar, _
	vbNullChar & FindValue & vbNullChar) > 0
Exit Function
LocalError:
    'Justin (just in case)
End Function

Private Sub Command1_Click()
    Dim x(5) As String
    
    x(0) = 5
    x(1) = 100
    x(2) = 2000
    x(3) = 11
    x(4) = 7
    x(5) = 1010
    MsgBox IsInArray(10, x)
End Sub