Найти минимальный и максимальный элементы в матрице и их номера

Option Explicit
Const N = 8
Const M = 5
Dim A(1 To N, 1 To M) As Integer, i, max, min, j, s As Integer
 
Dim numStr As Integer, sumStr(1 To N) As Double
Dim maxSum As Double
 
Private Sub Command1_Click()
numStr = 1
For i = 1 To N
For j = 1 To M
A(i, j) = Rnd * 89 + 10
sumStr(i) = sumStr(i) + A(i, j)
Print A(i, j);
Next: Print
Next
 
End Sub
 
Private Sub Command2_Click()
Form1.Cls
End Sub
 
Private Sub Command3_Click()
min = 100
For i = 1 To N
For j = 1 To M
If A(i, j) < min Then min = A(i, j)
Next
Next
Print "Минимальный элемент", min
 
End Sub
 
Private Sub Command4_Click()
max = 0
For i = 1 To N
For j = 1 To M
If A(i, j) > max Then max = A(i, j)
Next
Next
Print "Максимальный элемент", max
End Sub
 
Private Sub Command5_Click()
maxSum = sumStr(1)
For i = 1 To N
If maxSum < sumStr(i) Then maxSum = sumStr(i): numStr = i
Next i
Print
Print "Максимальная сумма - " & maxSum & "  В строке номер " & numStr
Print
Print "Строка:"
For i = 1 To M
Print A(numStr, i); vbTab;
Next i
End Sub