Предположим , есть массив m(n), где m(n)=100, n=1,2...
Тогда просто перебором , можно будет найти

Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))
1:
if m(n)=33 then Msgbox(n)
if m(n)=100 then Msgbox("No elements")
if m<>100 and m <> 33 goto 1