Найти в матрице сумму элементов строки, в которой расположен максимальный элемент матрицы. Excel - VBA

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

Никак не могу дописать код, помогите пожалуйста Задание: в заданной матрице Аmxn найти сумму элементов строки, в которой расположен максимальный элемент матрицы. Предполагается, что такой элемент единственный Код для кнопки расчет:

Dim A() as integer, m as integer, n as integer, i as integer, j as integer
M=val(inputbox("ввод количества строк матрицы"))
N=val(inputbox("ввод количества столбцов матрицы"))
Redim a(1 to m, 1 to n)
For i = 1 to m
S =" "
For j =1 to n
A(i, j)=val(inputbox("ввод элементов массива"))
s=s & " " & str(A(i, j))
Next j
Listbox1.additem s
Next i
 
D=-1000
For i=1 to m
For j =1 to n
If A(i, j) > d then d = A(i, j): x=i
Next j
Next i
 
For i = 1 to m
K=0
For j =1 to n
K=k+A(i, j)
Next j
Next i
Textbox2.text = k
 
S= " "
For j= 1 to n
S=s & " " & str(A(x, j))
Next j
Textbox1.text=s

Не могу сделать чтобы он предполагал, что элемент единственный и чтобы считал сумму нужной строки, а не последней из матрицы. Строку нахожу

Решение задачи: «Найти в матрице сумму элементов строки, в которой расположен максимальный элемент матрицы. Excel»

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

                            For i=1 to m
For j =1 to n
If A(i, j) = d then 
end for
end if
Next j
Next i
                        