Работа с матрицами (Visual Basic 6.0)

[Vebkor]

Задача звучит так: Дана матрица X(n,n), нужно найти столбцы в которых есть одинаковые элементы и сумму этих элементов.

Для меня сложность заключается в том, что бы найти сумму всех элементов. Я написал программу для нахождения двух одинаковых элементов, вот она:

 
Dim a As Integer, b As Integer, N As Double, i As Integer, j As Integer, sum As Integer, t As Integer, k As Integer, g As Single 
Private Sub Command4_Click()

Call Clear ' Очистка полей
N = 4
a = 1
b = 9
g = 0
sum = 0
ReDim X(N - 1, N - 1) As Single
Call Input_Matrix(X, a, b) ' Генерация матрицы
Call Output_Matrix(X)      ' Вывод матрицы

For i = 0 To N - 1
    For k = i + 1 To N - 1
        For j = 0 To N - 1
            If X(i, j) = X(k, j) Then
                sum = X(i, j) + X(k, j)
                Label2.Caption = Label2.Caption & j + 1 & "   "
                Label1.Caption = Label1.Caption & sum & "   "
            End If
        Next j
    Next k
Next i

End Sub

Sub Input_Matrix(X() As Single, a As Integer, b As Integer)
    Randomize Timer

For i = LBound(X) To UBound(X)
    For j = LBound(X) To UBound(X)
        X(i, j) = Fix(Rnd * (b - a + 1)) + a
    Next j
Next i
    
End Sub

Sub Output_Matrix(X() As Single)

For i = LBound(X) To UBound(X)
    For j = LBound(X) To UBound(X)
        Label3.Caption = Label3.Caption & X(i, j) & "  "
    Next j
    Label3.Caption = Label3.Caption & Chr(13)
Next i
    
End Sub

Вот пример работы программы если в столбце два одинаковых числа:


А это если чисел больше двух:



Я понимаю как работает моя программа и почему она выдает такой результат. Я могу решить эту задачу для матрицы строго заданного размера, но если размер матрицы неизвестен? То есть решение для матрицы 4х4 не будет актуально в матрице 5х5. Короче ничего в голову не приходит, может кто-то тут подскажет. Спасибо если дочитали

P.S. Простите за функции и за лишние переменные, просто у меня на этой форме еще задачи

[Vebkor]

Никто бейсик не знает что ли?