Module Module1

    Sub Main()
        Dim IntArray(4) As Integer

        For i = 0 To 4
            Console.WriteLine("Enter Number :")
            IntArray(i) = Val(Console.ReadLine)
        Next

        Console.WriteLine("-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=")

        Array.Sort(IntArray)

        For Each I As Integer In IntArray
            Console.WriteLine(I)
        Next

        Console.ReadKey()
    End Sub

End Module