Dim Numpers(15) As Integer
        Dim y As Byte = Numpers.Count - 2
        For i = 1 To y + 1
            Console.WriteLine("Please Enter The Numper " & i & " : ")
            Numpers(i) = Val(Console.ReadLine())
        Next

        Console.WriteLine("                   ")
        Console.WriteLine("*******************")
        Console.WriteLine("*******************")
        Console.WriteLine("                   ")

        Dim Value As Integer

        For i = 1 To y
            For x = 1 To y
                If Numpers(i) > Numpers(x + i) Then
                    Value = Numpers(i)
                    Numpers(i) = Numpers(x + i)
                    Numpers(x + i) = Value
                End If
            Next
            y = y - 1
        Next
        y = Numpers.Count - 2

        For i = 1 To y + 1
            Console.WriteLine(Numpers(i))
        Next

        Console.ReadKey()