Вычислить среднюю сумму квадратов отрицательных элементов на побочной диагонали матрицы

Public sub Matric_1
Dim a(,) as Integer
Dim m as Integer
Dim n as Integer
Dim i as Integer
Dim sum as Integer
 
m = InputBox("Введите размерность 1")
n = InputBox("Введите размерность 2")
ReDim a(n,m) as Integer
'Очевидно дальше начинается бред
For i=0 to m 
  For i=0 to n
    If i < 0 then
      sum= i+i^2
'Дальше мой моск дал отказ
End Sub

Public Sub Matric_1()
Dim a() As Integer
Dim m As Integer
Dim n As Integer
Dim i As Integer
Dim sum As Integer
Dim k As Integer
 
n = InputBox("Введите размерность матрицы")
    ReDim a(n, n) As Integer
  For i = 1 To n
    For j = 1 To n
        a(i, j) = InputBox("Введите элемент A(" & i & ";" & j & ")")
        If i = a(i, j) < 0 Then
    k = k + 1
    sum = sum + a(i, j) ^ 2
        End If
    Next j
        Next i
        MsgBox sum
    If k > 0 Then
        Cells(n + 5, 1) = "S=" & sum
        Cells(n + 6, 1) = "S_sredn=" & sum / k  'если это средняя сумма
    Else
    MsgBox "все +"
        End If
End Sub

Public Sub matix()
 
Dim a() As Integer
Dim m As Integer
Dim n As Integer
Dim i As Integer
Dim sum As Integer
Dim k As Integer
Dim p As Integer
Dim j As Integer
 
n = InputBox("размерность матрицы")
    ReDim a(n, n) As Integer
  For i = 1 To n
    For j = 1 To n
        a(i, j) = InputBox("Введите элемент A(" & i & ";" & j & ")")
        Cells(i, j) = a(i, j)
                   If a(i, j) < 0 Then
                sum = sum + a(i, j - i + 1) ^ 2
                p = p + 1
             End If
         Next
Next
If k > 0 Then
        Cells(n + 5, 1) = "S=" & sum
        Cells(n + 6, 1) = "S_sredn=" & sum / k  
    Else
    MsgBox "все +"
        End If
MsgBox sum
MsgBox p
End Sub

 If a(i, j) < 0 Then             '::: Анализируешь на знак a(i,j)
   sum = sum + a(i, j - i + 1) ^ 2      '::: а суммируешь элемент с побочной диагонали
   p = p + 1                      '::: он у тебя еще не введен!!!!!!! (при твоем алгоритме ввода) 
End If

p=0

' Сначала вводим всю матрицу
 
For i = 1 To n
    For j = 1 To n
        a(i, j) = InputBox("Введите элемент A(" & i & ";" & j & ")")
        Cells(i, j) = a(i, j)
    Next
Next
 
' анализируем побочную диагональ
 
For i = 1 To n
      If a(i, n - i + 1) < 0 Then
         sum = sum + a(i, n - i + 1) ^ 2
         p = p + 1
      End If
Next