одномерный массив

Sub test()
    Dim a() As Single, n As Integer, B As Single, i As Integer
    Dim min As Single, max As Single, count_b As Integer
    Dim min_i As Integer, max_i As Integer, step_i As Integer
    
    ' Получить размерность массива и заполнить массив данными
    n = CInt(InputBox("Введите n:"))
    ReDim a(1 To n) As Single
    For i = 1 To n
        a(i) = CSng(InputBox("Введите a(" & i & "):"))
    Next i
    
    ' Получить число B
    B = CSng(InputBox("Введите B:"))
    
    ' Найти минимум и максисум, а также их индексы в массиве
    min = a(1)
    min_i = 1
    max = a(1)
    max_i = 1
    For i = 2 To n
        If a(i) < min Then
            min = a(i)
            min_i = i
        End If
        If a(i) > max Then
            max = a(i)
            max_i = i
        End If
    Next i
    
    ' Уточняем шаг цикла в зависимости от того,
    ' что первым идет в массиве max или min
    If min_i < max_i Then step_i = 1 Else step_i = -1
    ' Цикл от минимума до максимума
    count_b = 0 ' Инициализировать счетчик нулем
    For i = min_i To max_i Step step_i
        If a(i) > B Then
            count_b = count_b + 1
        End If
    Next i
    
    MsgBox "min = " & min & "; min_i = " & min_i & "; max = " & max & "; max_i = " & max_i & "; B = " & B & "; count_b = " & count_b & "(искомое число)."
End Sub

Function NumEl(Arr() As integer) As integer
   for i%=2 to Ubound(A,1)-1
       if (Arr(i) > Arr(i-1)) And  (Arr(i) > Arr(i+1)) then NumEl=NumEl+1
   Next i%
End Function