Определить номера строк матрицы, суммы элементов которых одинаковы - VB

Option Explicit
Dim A() As Integer
Dim sumStr() As Double
Dim i As Integer, j As Integer, n As Integer, m As Integer, kol As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls 'Очищаем форму
n = 10    ' InputBox("Введите n")
m = 10    ' InputBox("Введите m")
ReDim A(n, m), sumStr(n) ' Размеры массива А -  n-строк, m-столбцов
Print "Массив :"
For i = 1 To n
  sumStr(i) = 0
  For j = 1 To m
    A(i, j) = Int(Rnd * 11) 'Заполняем массив случайными числами
    sumStr(i) = sumStr(i) + A(i, j)
    Print A(i, j); vbTab;
  Next j
  Print
Next i
'Процедура вывода на печать
Print "Cуммы элементов по строкам :"
For i = 1 To n
 Print sumStr(i); ; vbTab;
Next i
Print
Print "Hомера строк,суммы элементов которых одинаковы :"
For i = 1 To n
  For j = i + 1 To n
   If sumStr(i) = sumStr(j) Then Print i; j; vbTab;
  Next j
Next i
Print
End Sub