The following works with numbers, where the range is a single column/row

Sub TestArray()
Dim Item, YourStr, NumThere As Boolean, NumPos As Long
Dim X, i
X = Range("TestArea")
YourStr = InputBox("Enter number") * 1
MsgBox Belongs(YourStr, X)
End Sub

Function Belongs(Item, MyArray As Variant) As Boolean
Dim NumPos As Long
Belongs = False
On Error Resume Next
NumPos = Application.WorksheetFunction.Match(Item, MyArray, 0)
If NumPos > 0 Then Belongs = True
End Function