Массив VBA Excel, Помогите разобраться Опции

[Thunder]

Помогите пожалуйста разобраться с задачей:
Дана непустая последовательность целых чисел, оканчивающаяся числом 100. Определить, есть ли в последовательности число 33. Если имеются несколько таких чисел, то определить индекс первого их них.
Я так думаю, что здесь надо использовать функцию rnd
Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))