Сформировать матрицу - VB

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

Дана матрица А размерности MxN. Сформировать матрицу B, строки которой расположены в порядке возрастания сумм элементов строк матрицы А. Я создала только 1 массив, но его наверное выводить не надо. Как сформировать другой массив из этого?

Private Sub Command2_Click()
Dim m%, n%, A%(), B%(), i%, j%, sum%
Label1 = " Дана матрица A размерности MxN. Сформировать матрицу B, строки которой расположены в порядке возрастания сумм элементов строк матрицы A ."
Frame1.Visible = False: fg.Visible = True
m = InputBox("Введите количество строк матрицы")
n = InputBox("Введите количество столбцов матрицы")
ReDim A(1 To m, 1 To n)
fg.Cols = n + 1: fg.Rows = m + 1
For i = 0 To m
fg.RowHeight(i) = fg.Height / (m + 2)
If i > 0 Then fg.TextMatrix(i, 0) = i
Next i
For j = 0 To n
fg.ColWidth(j) = fg.Width / (n + 2)
If j > 0 Then fg.TextMatrix(0, j) = j
Next j
Randomize
For i = 1 To m
For j = 1 To n
A(i, j) = Int(Rnd * 100)
fg.TextMatrix(i, j) = Str(A(i, j))
Next j, i

Решение задачи: «Сформировать матрицу»

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

                            ReDim B%(1 To m)
For i = 1 To m
B%(i)=0
For j = 1 To n
B%(i)=B%(i)+A(i, j)
Next j
Next i
                        