Aplogies,
I never noticed this was an Access question .

Try the following
[VBA]
Function Belongs(Item, MyArray As Variant) As Boolean
Dim Member
Belongs = False
For Each Member In MyArray
If Item = Member Then Belongs = True: Exit Sub
Next
End Function
[/VBA]