Вывести в порядке невозрастания (убывания) элементы, находящиеся в диапазоне между A и B

Sub Main()
        Dim mas(100), mas1(100), tmp As Double
        Dim N, i, k, A, B As Integer
        Console.WriteLine(" исходный массив N:")
        Console.Write("N=")
        N = (Console.ReadLine())
        Console.WriteLine("Введите число А=")
        A = (Console.ReadLine())
        Console.WriteLine("Введите число B=")
        B = (Console.ReadLine())
        For i = 0 To N - 1
            mas(i) = Rnd() * (22 - 11) + 11
            Console.Write(mas(i) & " ")
            If mas(i) > A And mas(i) < B Then
                Console.WriteLine(" Элементы = " & mas(i))
            End If
        Next i
        For i = 1 To N - 1
            For k = i + 1 To N
                If mas1(i) < mas1(k) Then
                    tmp = mas1(i)
                    mas1(i) = mas1(k)
                    mas1(k) = tmp
                End If
            Next k
        Next i
        Console.WriteLine(" ")
        Console.WriteLine("Отсортированный массив ")
        For i = 0 To N - 1
            Console.Write(mas(i) & " ")
        Next i
        Console.ReadKey()
    End Sub

Module Module1
 
    Sub Main()
        Dim List_1 As New List(Of Double)
        Dim List_2 As New List(Of Double)
        Dim Rand As New Random
        Dim N As Integer = 0
        Dim A As Double = 0
        Dim B As Double = 0
        Console.WriteLine("Введите количество элементов массива:")
        N = Console.ReadLine
        Console.WriteLine("Введите число А:")
        A = Console.ReadLine
        Console.WriteLine("Введите число B:")
        B = Console.ReadLine
        Console.WriteLine("Начальный массив:")
        Console.WriteLine()
        For i As Integer = 0 To CInt(N) - 1
            List_1.Add(Rand.Next(11, 23))
            Console.WriteLine(i & "-й элемент массива: " & List_1(i).ToString)
            If List_1(i) >= CDbl(A) AndAlso List_1(i) <= CDbl(B) Then
                List_2.Add(List_1(i))
            End If
        Next
        Console.WriteLine()
        List_2.Sort()
        Console.WriteLine("Отсортированный массив:")
        For j As Integer = List_2.Count - 1 To 0 Step -1
            Console.WriteLine(j & "-й элемент массива: " & List_2(j).ToString)
        Next
        Console.Read()
    End Sub
 
End Module