Создать массив из 212 случайных чисел лежащих в диапазоне от 3 до 7 и отсортировать этот массив по возрастанию - VB

Module Module1
 
    Sub Main()
        Dim a(212) As Integer
        Dim i, j, max, ch As Integer
        max = 0
        Randomize(Timer)
        For i = 0 To a.Length - 1
            a(i) = Int(Rnd() * 5 + 3)
        Next i
        For i = 0 To a.Length - 1 Step 1
            For j = 0 To a.Length - 2 - i Step 1
                If a(j) > a(j + 1) Then
                    ch = a(j)
                    a(j) = a(j + 1)
                    a(j + 1) = ch
                End If
            Next j
        Next i
        For i = 0 To a.Length - 1 Step 1
            Console.WriteLine(a(i))
        Next i
        Console.ReadKey(True)
    End Sub
 
End Module