Module Module2

    Sub Main()

        Dim intFirst As Integer
        Dim intSecond As Integer
        Dim intThird As Integer
        Dim intMax As Integer

        Try
            'Input three numbers 
            Console.WriteLine("Input first number")
            intFirst = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine("Input second number")
            intSecond = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine("Input third number")
            intThird = Convert.ToInt32(Console.ReadLine())
            'Find the largest 
            intMax = intFirst
            If (intSecond > intMax) Then
                intMax = intSecond
            End If
            If (intThird > intMax) Then
                intMax = intThird
            End If
            'Show the largest 
            Console.WriteLine("The largest is {0}", intMax)
            Console.ReadLine()

            'Handle exception generated by wrongly formatted user input
        Catch ex As System.FormatException
            Console.WriteLine("You didn't enter a Number!")
        End Try

        Console.WriteLine(vbCrLf + "Please Press any Key to Exit")
        Console.ReadKey()

    End Sub
End Module