Определить произведение элементов, значения которых больше заданного числа

Public Class Massiv
    Dim Matrix(,) As Integer 'Матрица
    Dim N As Integer
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtNewMatrix.Click
        'Создание и заполнение матрицы
        TBMatrix.Clear()
 
        N = TBN.Text
        ReDim Matrix(N - 1, N - 1)
 
        Randomize()
        Dim R As New Random
 
        Dim k = 0
        For i = 0 To N - 1
            For j = 0 To N - 1
                k = R.Next(1, 101)
                Matrix(i, j) = k
                TBMatrix.AppendText(k & " ")
            Next
            TBMatrix.AppendText(vbCrLf)
        Next
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles BtStart.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        Dim F As Integer = TBF.Text
 
        Dim BigNumbers As New HashSet(Of Integer)
        For i = 0 To N - 1
            For j = 0 To N - 1
                If Matrix(i, j) > F Then
                    BigNumbers.Add(Matrix(i, j)) 'Если число > F и отсутствует в BigNumbers то добавить в него
                    TextBox1.AppendText(Matrix(i, j) & vbCrLf)
                End If
            Next
        Next
 
        For Each i In BigNumbers
            TextBox2.AppendText(i & vbCrLf)
        Next
 
        Dim SortArray = BigNumbers.ToArray 'Массив для сортировки
        Array.Sort(SortArray) 'Сортируем
 
        For Each i In SortArray
            TextBox3.AppendText(i & vbCrLf)
        Next
 
        For i = 0 To SortArray.Length - 1 'Перемножаем
            For j = i + 1 To SortArray.Length - 1
                TextBox4.AppendText($"{SortArray(i)}*{SortArray(j)}={SortArray(i) * SortArray(j)}" & vbCrLf)
            Next
        Next
    End Sub
End Class