Отсортировать по убыванию элементы массива, удовлетворяющие условию а(i) > 10, методом выбора

Public Class Form1
    Dim i, j, h, t, u, n, k, c, e, A(100), B(100) As Integer
    Dim f As Object
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.ColumnCount() = 0
        t = TextBox3.Text
        DataGridView1.Columns.Add("Колонка", 0)
        For Me.i = 1 To t  'столбец'
            DataGridView1.Columns.Add("Колонка", i)
            DataGridView1.Columns(i).Width = 50
        Next i
        For Me.i = 0 To 1  'строка'
            DataGridView1.Rows.Add()
        Next i
        DataGridView1.Rows(0).Cells(0).Value = "Исх. Массив"
        DataGridView1.Rows(1).Cells(0).Value = "Нов. Массив"
        DataGridView1.Rows(2).Cells(0).Value = "Сор. Массив"
 
        Randomize()
        For Me.i = 1 To t
            A(i) = 200 * Rnd() - 100
            DataGridView1.Rows(0).Cells(i).Value = A(i)
        Next i
 
        c = 0
        For Me.i = 1 To t
            If A(i) > 10 Then
                c = c + 1
                B(c) = A(i)
                DataGridView1.Rows(1).Cells(c).Value = B(c)
            End If
        Next i