Массив: Вычислить сумму и разность минимальных элементов заданных матриц - VB

Формулировка задачи:

Дана такая задача. Даны две матрицы А(4,5); В(3,6). Вычислить сумму и разность минимальных элементов этих матриц. Элементы матрицы формируются с использованием случайных чисел (-10<xij<10). Собственно для одной матрицы я программу написала а как сделать чтоб для двух было не понимаю. Помогите очень нужно!!

Dim minznach As Double, minznach As String
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
 
dArrya(i, j) = Int((10 - (-10) + 1) * Rnd + (-10))
Next j
Next i
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
Cells(i, j).Value = dArrya(i, j)
Next j
Next i
' определение минимального положительного элемента
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
If dArrya(i, j) > 0 Then
minznach = dArrya(i, j)
minznagh = i & "; " & j
GoTo metka
End If
Next j
Next i
metka:
' сравнение остальных элементов массива с minznach
For i = 1 To 4 Step 1
For j = 1 To 5 Step 1
If dArrya(i, j) > 0 And dArrya(i, j) < minznach Then
minznach = dArrya(i, j)
minznach = i & "; " & j
End If
Next j
Next i
 
MsgBox "Минимальное значение: " & minznach & vbCr & _
"Минимальный элемент: " & minznach
End Sub

Решение задачи: «Массив: Вычислить сумму и разность минимальных элементов заданных матриц»

textual
                            Листинг программы 
                        

                            Function Max_Min(A() As integer)
       n1%=Lbound(A,1)
       n2%=Lbound(A,1)
       m1%=Lbound(A,2)
       m2%=Lbound(A,2)
       amin%=A(n1%,m1%)
       amax%=A(n1%,m1%)
       For i%=n1% to n2%
            For j%=m1% to m2%
                 if A(i%,j%) >= amax% then amax%=A(i%,j%)
                 if A(i%,j%) <= amin% then amin%=A(i%,j%)
            Next j%
       Next i%
       Max_Min=amax%-amin%
End Function
                        