Imports System

Public Module Module1

    Public Sub Main()

        Dim Num_1 as integer

        Dim Num_2 as integer

        Dim Num_3 as integer

        Console.WriteLine("Please enter your first number")

        Num_1 = Console.ReadLine()

        Console.WriteLine("Please enter your second number")

        Num_2 = Console.ReadLine()

        Console.WriteLine("Please enter your third number")

        Num_3 = Console.ReadLine()

        IF Num_1 > Num_2 and Num_1 > Num_3 THEN

            Console.Writeline("The Largest number is :" & Num_1)

        ELSE IF Num_2 > Num_3 THEN

            Console.Writeline("The Largest number is :" & Num_2)

        ELSE

            Console.Writeline("The Largest number is :" & Num_3)

        END IF 

    End Sub

End Module