Imports System

Public Module Module1

    Public Sub Main()

        Dim Number1, Number2, Number3 As Integer

        Dim biggest, middle, smallest As Integer

        Console.WriteLine("Enter First Number")

        Number1 = Console.ReadLine()

        Console.WriteLine("Enter Second Number")

        Number2 = Console.ReadLine()

        Console.WriteLine("Enter Third Number")

        Number3 = Console.ReadLine()

        If Number1 < Number2 AND Number1 < Number3 Then

            smallest = Number1

            If Number2 < Number3 Then

                middle = Number2

                biggest = Number3

                Console.Writeline("In ascending order " & smallest & "," & middle & "," & biggest)

            Else

                middle = Number3

                biggest = Number2

                Console.Writeline("In ascending order " & smallest & "," & middle & "," & biggest)

            End If

        End If

        If Number2 < Number1 AND Number2 < Number3 Then

            smallest = Number2

            If Number1 < Number3 Then

                middle = Number1

                biggest = Number3

                Console.Writeline("In ascending order " & smallest & "," & middle & "," & biggest)

            Else

                middle = Number3

                biggest = Number1

                Console.Writeline("In ascending order " & smallest & "," & middle & "," & biggest)

            End If

        End If

        If Number3 < Number1 AND Number3 < Number2 Then

            smallest = Number3

            If Number1 < Number2 Then

                middle = Number1

                biggest = Number2

                Console.Writeline("In ascending order " & smallest & "," & middle & "," & biggest)

            Else

                middle = Number2

                biggest = Number1

                Console.Writeline("In ascending order " & smallest & "," & middle & "," & biggest)

            End If

        End If      

    End Sub

End Module