Найти сумму элементов в столбцах матрицы, которые содержат хотя бы один отрицательный элемент

Option Explicit
Sub Dop_prog_32()
 
 Dim A(1 To 5, 1 To 5) As Integer
  Dim j, Sum, k, fl As Integer
   Dim T As String
 
Public Function Summa(b() As Integer, n As Integer) As Integer
 
    Dim S As Integer, x As Integer
    S = 0
    
    For x = 1 To 5
        S = S + b(x, n)
    Next
    Summa = S
End Function
 
 
For j = 1 To 5
For k = 1 To 5
A(j, k) = Int((10 * Rnd) - 3) 
       T = T & "a(" & j & "," & k & " )" & " " & Str(A(j, k)) & vbLf
     
     MsgBox T, , "Исходный массив"
Next k, j
 
For k = 1 To 5
fl = 0
For j = 1 To 5
If A(j, k) < 0 Then
fl = 1
End If
 
If fl = 1 Then
Sum = Summa(A, k)
End If
Next k, j
MsgBox Sum, , "Сумма элементов к-го столбца"

Option Explicit
Dim A(1 To 5, 1 To 5) As Integer
Dim sum(5) As Integer
Dim b(5) As Integer
 
Private Sub CommandButton1_Click()
Dim j As Integer, n As Integer, fl As Integer, k As Integer
Dim T As String, w As String
Randomize
For j = 1 To 5
For k = 1 To 5
A(j, k) = Int((10 * Rnd) - 3)
T = T & "a(" & j & "," & k & " )" & " " & Str(A(j, k)) & vbLf
Cells(j + 2, k + 2) = A(j, k)
Next k, j
 MsgBox T, , "Исходный массив"
For k = 1 To 5
fl = 0
For j = 1 To 5
If (A(j, k) < 0) And (fl = 0) Then
fl = 1: n = k
b(k) = 1
sum(k) = Summa(n)
Cells(j + 12, k + 2) = sum(k)
Cells(j + 22, k + 2) = k
Cells(j + 32, k + 2) = b(k)
End If
 
Next j
Next k
For v = 1 To 5
If b(v) > 0 Then
w = w + "Сумма элементов " & v & "-го столбца = " & sum(v) & vbLf
End If
Next
If w = "" Then
w = "Все элементы положительные"
End If
MsgBox w
End Sub
Public Function Summa(ByRef n As Integer) As Integer
 
    Dim s As Integer, x As Integer
    s = 0
    
    For x = 1 To 5
        s = s + A(x, n)
    Next
    Summa = s
End Function