Найти количество отрицательных элементов массива и минимальный из них

Sub P1()
'С помощью Dim создаём в оперативной памяти компьютера массив Массив.
'1 To - означает, что элементы массива будут нумероваться с 1
'(по умолчанию порядковый номер первого элемента массива 0
'что неудобно непрограммистам.
'Single - означает, что в переменной будут находиться только
'вещественные числа (целые и дробные). Количество элементов
'в массиве я сам придумал.
Dim Массив(1 To 20) As Single
'Создаём в оперативной памяти компьютера переменную i.
'Integer - означает, что в переменной будут только целые числа.
Dim i As Integer
Dim min As Single, Счётчик As Integer
'Заполняем массив числа из Excel.
'For ... To ... Next - называется циклом и используется
'для выполнения одного и того же действия заданное количество.
For i = 1 To 20 Step 1
    Массив(i) = Cells(i, 1).Value
Next i ' Next увеличивает число в переменной на число, указанное в Step.
'Собственно решение задачи.
'Помещаем в переменную min ноль.
For i = 1 To 20 Step 1
    'If ... Then ... End If - используется для выбора действия.
    'Если элемент массива меньше min, то оно отрицательное.
    If Массив(i) < min Then
        'Помещаем в переменную min число из этого элемента массива.
        min = Массив(i)
        'и ведём подсчёт отрицательных элементов.
        Счётчик = Счётчик + 1
    End If
Next i
'MsgBox используется для вывода на монитор сообщений.
MsgBox min
MsgBox Счётчик
End Sub

'Собственно решение задачи.
'Помещаем в переменную min ноль.
min = 0
For i = 1 To 20 Step 1
    'If ... Then ... End If - используется для выбора действия.
    'Если элемент массива меньше нуля, то он отрицательный.
    If Массив(i) < 0 Then
        'Ведём подсчёт отрицательных элементов.
        Счётчик = Счётчик + 1
    End If
    'Если элемент массива меньше min, то оно меньше предыдущего отрицательно числа.
    If Массив(i) < min Then
        'Помещаем в переменную min число из этого элемента массива.
        min = Массив(i)
    End If
Next i

'Надо для каждого указывать тип данных.
Dim n As Integer, i As Integer, otr As Integer
Dim M(100) As Long, O(100) As Long, min As Long
 
Private Sub Command1_Click()
otr = 0
'У вас размер уже указан M(100).
'n = Val(InputBox("Введите количество элементов массива:"))
'Порядковый номер первого элемента массива 0.
For i = 0 To 100
    M(i) = Val(InputBox("Введите M(" + CStr(i) + "):"))
    If M(i) < 0 Then
        otr = otr + 1
        O(otr) = M(i)
    End If
Next i
'Нужно делать проверку, что число меньше нуля.
min = M(1)
For i = 2 To n
    If M(i) < min Then min = M(i)
Next i
Cls
Print "Введено " + CStr(n) + " элементов массива:"
For i = 1 To n
Print M(i),
Next i
Print
Print
Print "Отрицательных элементов массива " + CStr(otr) + ":"
For i = 1 To otr
Print O(i),
Next i
Print
Print
Print "Минимальный из отрицательных элементов массива: "; min
'Обнулять нужно переменные, объявленные в самом модуле.
'иначе в них хранится значение, пока программа Excel работает.
End Sub