Для элементов главной диагонали меньших нуля, вывести максимум элементов строки, где элемент расположен

Sub dd()
Dim a(1 To 20, 1 To 20) As Integer
Dim max As Single
Dim min As Single
n = InputBox("matrix")
For i = 1 To 20
For j = 1 To 20
If a(i, j) < o Then
End If
Next j
Next i
For i = 1 To 20
max = a(i, 1)
For j = 1 To 20
If a(i, j) > min Then max = a(i, j)
Next j
Next i
End Sub

For i = 1 To 20
max = a(i, 1)
For j = 1 To 20
If a(i, j) > min Then max = a(i, j)
Next j
Next i

Sub dd()
Dim a() As Integer
Dim max As Single
Dim min As Single
Dim n, i, j As Integer
n = InputBox("razmer massiva")
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
If a(i, j) < 0 Then
End If
Next j
Next i
For i = 1 To n
max = a(i, 1)
For j = 1 To n
If a(i, j) > min Then max = a(i, j)
Next j
Next i
End Sub

Sub dd()
Dim a() As Integer
Dim max As Single
Dim min As Single ' зачем эта переменная?
Dim n as integer, i as integer, j As Integer ' так все 3 переменные имеют тип integer  а в предыдущем варианте n, i были типа variant 
n = InputBox("razmer massiva")
ReDim a(n, n)
'тут надо заполнить массив пробежавшись по всем его элементам в циклах, например так:
For i = 1 To n
For j = 1 To n
a(i,j) = cells(i,j).value 'заполняем массив числами с листа эксель
Next j
Next i
 
For i = 1 To n ' если вы хотели здесь пробежаться в цикле по элементам главной диагонали то тут ошибка, вы пробегаетесь по всем элементам матрицы, на главной диагонали элементы a(i,i) то есть индекс строки и столбца одинаковый
For j = 1 To n
If a(i, j) < 0 Then
' тут должно быть написано что будет выполнятся когда верно условие If a(i, j) < 0
'я предлагаю сюда вставить кусок по поиску максимума в строке
End If
Next j
Next i
For i = 1 To n ' тут происходит просто поиск максимумов во всех строках! правильнее было бы при 'нахождении отрицательного элемента главной диагонали(это есть выше) сразу искать в строке 'максимум
max = a(i, 1)
For j = 1 To n
If a(i, j) > max Then  'тут я просто исправил заменив ненужную переменную min нужной переменной max)
max = a(i, j) 
Next j
Next i
End Sub