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

Формулировка задачи:

Товарищи программисты, доброго дня! прошу содействия в решении следующей задачи:

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

мой ход мыслей таков = не учитывать в цикле положительные элементы, а среди отрицательных - найти минимальный по модулю. если же подобное оговарилось ранее, буду признательна ссылке на соответствующую тему. Заранее благодарю

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

textual
                            Листинг программы 
                        

                            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
                        