Напишите пожалуйста программу. дана матрица 4*4. Найти сумму элементов строки

Option Explicit
 
Private Sub Command1_Click()
    Dim A(1 To 4, 1 To 4) As Integer
    Dim i As Integer, j As Integer
    Dim imin As Integer, jmin As Integer
    Dim min As Integer, sum As Integer
    Randomize
    Cls
    For i = 1 To 4
        For j = 1 To 4
            'A(i, j) = InputBox("A(" & i & "," & j & ")") ' Это если потребуется заполнять матрицу вручную.
             A(i, j) = Int(Rnd * 100)
             Print A(i, j); vbTab;
        Next j
        Print
    Next i
    min = A(1, 1): imin = 1: jmin = 1
    For i = 1 To 4
        For j = 1 To 4
             If min > A(i, j) Then min = A(i, j): imin = i: jmin = j 'ищем минимальный элемент
        Next j
    Next i
    For j = 1 To 4
             sum = sum + A(imin, j)
    Next j
    Print
    Print "Минимальный элемент матрицы - А(" & imin & "," & jmin & ") = " & min & vbCrLf _
          ; "Находится в строке №" & imin & vbCrLf _
          ; "Cумма элементов " & imin & "-й строки равна  " & sum
          
    
End Sub

'::: Определение номера строки, содержащий мин. элемент
 
Function minLine(A() As Integer, Optional i As Integer = 0, _
                            Optional j As Integer = 0, _
                            Optional min As Integer = 0, _
                            Optional imin As Integer = 0) As Integer
    If i = 0 Then
       minLine = minLine(A(), 1, 1, A(1, 1), 1)
    ElseIf i = UBound(A, 1) And j > UBound(A, 2) Then
       minLine = imin
    ElseIf j > UBound(A, 2) Then
       minLine = minLine(A(), i + 1, 1, min, imin)
    Else
       If A(i, j) < min Then
          minLine = minLine(A(), i, j + 1, A(i, j), i)
       Else
          minLine = minLine(A(), i, j + 1, min, imin)
       End If
    End If
End Function
 
'::: Сумма заданной строки
 
Function sumLine(A() As Integer, n As Integer, Optional i As Integer = 0, _
                                                               Optional s As Integer = 0) As Integer
    If i = 0 Then
       sumLine = sumLine(A, n, 1, 0)
    ElseIf i > UBound(A, 2) Then
       sumLine = s
    Else
       sumLine = sumLine(A, n, i + 1, s + A(n, i))
    End If
 
End Function
 
'::: Тест
 
Sub Test()
 
Dim A(1 To 4, 1 To 4) As Integer
 
    Randomize
 
    For i% = 1 To 4
        For j% = 1 To 4
            A(i%, j%) = Rnd() * 100
        Next j%
    Next i%
    
    For i% = 1 To 4
        For j% = 1 To 4
            Debug.Print A(i%, j%),
        Next j%
        Debug.Print
    Next i%
    
    k% = minLine(A())
        
    Debug.Print sumLine(A(), k%)
 
End Sub