Работа с одномерными массивами. Для контрольного примера можно взять массивы, состоящие из пяти, шести элементов:
В массиве чисел В1, В2, …, Вn найти минимальное число и его номер. Сделать в ВБА

Sub aaa()    b = Array(4, 6, -3, 7, 2, 1)    k = 0    For i = 1 To UBound(b, 1)        If b(k) > b(i) Then k = i    Next i    MsgBox "Минимальный элемент с порядковым номером" + Str(k + 1) + " равен " + LTrim(Str(b(k)))End Sub