Dim x, fvalue As Integer, lu
x = Array(7, 3, 5, 2, 6)
fvalue = 5
lu = Application.Match(fvalue, x, 0)
If IsError(lu) Then
MsgBox "Value Not Found"
MsgBox "Value found in the array at position " & lu
It's the MATCH worksheet function (some but not all worksheet functions can be used in VBA code, lookup WorksheetFunction in VBA help), the 0 at the end is the numeric equivalent of False, meaning it must find an exact match.
Can you post the code as you have it now and some more details about what you are trying to do?