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

Sub Procedure_1()
 
    Dim i As Long
    Dim Массив(1 To 20) As Double
    Dim max As Double
    
    For i = 1 To 20 Step 1
        Массив(i) = InputBox("Введите число для элемента " & i)
    Next i
 
    'Находим первый отрицательный элемент в массиве.
    'Поместим число из этого элемента в переменную.
    'Затем остальные элементы будем сравнивать с этой переменной.
    For i = 1 To 20 Step 1
        If Массив(i) < 0 Then
            max = Массив(i)
            'Выходим из цикла.
            Exit For
        End If
    Next i
    
    'Теперь просматриваем все элементы в массиве.
    'Если элемент отрицательный, то сравниваем его
    'с переменной max.
    For i = 1 To 20 Step 1
        If Массив(i) < 0 Then
            If Массив(i) > max Then
                'Если отрицательный элемент больше числа,
                'которое находится в переменной max,
                'то помещаем этот элемент в эту переменную.
                max = Массив(i)
            End If
        End If
    Next i
 
    'Выводим результат в диалоговое окно.
    MsgBox max
 
End Sub

sub z()
  dim x#, m#, i%
  m=-1.79769313486231E308
  for i=1 to 20
    x=inputbox(i & "-ое число:", x)
    if x<0 and x>m then m=x
  next
  if m>-1.79769313486231E308 then msgbox "максимальное из отрицательных = " & m
end sub

Sub z()
  Dim x#, m#, i%
  For i = 1 To 20
    x = InputBox("Введите " & i & "-ое число:")
    If x < 0 And (x > m Or m = 0) Then m = x
  Next i
  If m <> 0 Then MsgBox "максимальное из отрицательных = " & m Else MsgBox "отрицательных чисел нет"
End Sub