Фильтр списка ListBox через массив

Public Class test
    Private iData As List(Of Integer())
 
    Private Sub test_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button2.Enabled = False
    End Sub
 
    Private Sub Create_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'моделирование данных
        Dim n As Integer = CInt(TextBox1.Text)
        iData = New List(Of Integer())
        Dim r As New Random()
        For i = 0 To n - 1
            Dim vv As Integer() = Enumerable.Range(1, 45).OrderBy(Function(k) r.Next).Take(6).ToArray()
            Array.Sort(vv)
            iData.Add(vv)
        Next
        Button2.Enabled = True
    End Sub
 
    Private Sub Find_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'подсчет статистики (подмножества размерности {2,3} из всего множества)
        Dim k As Int16 = NumericUpDown1.Value
        Dim int1_45 = (Enumerable.Range(1, 45).ToArray)
        Dim sSet_23 As List(Of Int16()) = fnd_k(int1_45, k)
        Dim dtObj(sSet_23.Count - 1) As Subset_23
        Dim s As String
        For jj = 0 To sSet_23.Count - 1
            If k = 2 Then
                s = sSet_23(jj)(0) & "-" & sSet_23(jj)(1)
            Else
                s = sSet_23(jj)(0) & "-" & sSet_23(jj)(1) & "-" & sSet_23(jj)(2)
            End If
            dtObj(jj) = New Subset_23(s, 0)
        Next
        Dim bb As Boolean
        For i = 0 To iData.Count - 1
            For j = 0 To sSet_23.Count - 1
                If k = 2 Then
                    bb = iData(i).Contains(sSet_23(j)(0)) AndAlso iData(i).Contains(sSet_23(j)(1))
                Else
                    bb = iData(i).Contains(sSet_23(j)(0)) AndAlso iData(i).Contains(sSet_23(j)(1)) AndAlso iData(i).Contains(sSet_23(j)(2))
                End If
                If bb Then
                    dtObj(j).quantity += 1
                End If
            Next
        Next
        Dim sorted = dtObj.OrderBy(Function(ob) -ob.quantity).ToArray()
        DataGridView1.DataSource = sorted
    End Sub
 
    Private Function fnd_k(v2 As Integer(), k As Int16) As List(Of Int16())
        Dim n As Int16 = v2.Length
        Dim ll As New List(Of Int16())
        Dim a = New Int16(k - 1) {}
        For i As Integer = 0 To k - 1
            a(i) = i + 1
        Next
        Dim p As Int16 = k
        While (p >= 0)
            ll.Add(a.Clone)
            p = If(a(k - 1) = n, p - 1, k - 1)
            If p >= 0 Then
                For i As Integer = k - 1 To p Step -1
                    a(i) = a(p) + i - p + 1
                Next
            End If
        End While
        Return ll
    End Function
 
End Class
 
Public Class Subset_23
    Public Sub New(ByVal s As String, ByVal n As Int16)
        _num2 = s
        _quantity = n
    End Sub
 
    Public Property num2 As String
    Public Property quantity As Int16
End Class