Module Module1

    Sub Main()
        'Declare 4 variables of type Integer
        Dim intFirst As Integer
        Dim intSecond As Integer
        Dim intThird As Integer
        Dim intMax As Integer

        Try
            'Input three numbers 
            Console.WriteLine("Please enter the first integer")
            intFirst = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine("Please enter the second integer")
            intSecond = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine("Please enter the third integer")
            intThird = Convert.ToInt32(Console.ReadLine())

            'Find the largest 
            'Compare the numbers to find out which is the highest number
            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 number entered 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