Найти минимальный элемент и его номер среди элементов массива B, имеющих нечетные индексы - VB

Sub Task(i As Integer, Optional min As Double = 27, Optional imin As Integer = 1, Optional b As Double = 27)
   
   If i > 13 Then   '::: Если i > 13 - значит список пройден (в min - минимальное знач. imin=номер)
      Debug.Print min; " "; imin  '::: печать и выход
      Exit Sub
   Else '::: Следующий шаг 
      z# = 0.3 * b + Cos(b)  '::: След. значение
      If (((i + 1) Mod 2) <> 0) And (z# < min) Then  '::: если меньше текущего
         Task i + 1, z#, i + 1, z# ' вызов с подправленными параметрами при i=i+1
      Else
         Task i + 1, min, imin, z# ' если больше текущего - вызов с прежними параметрами при i=i+1
      End If
   End If
 
End Sub