Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

            Dim Number1 As Integer

        Dim Number2 As Integer

        Console.writeline("Enter Number1")

        Number1 = Console.readline()

        Console.writeline("Enter Number2")

        Number2 = Console.readline()

        If Number1 > Number2 Then

            Console.WriteLine(Number1 & "is the largest")

        Else

            Console.WriteLine(Number2 & "is the largest")

            Console.ReadLine()

        End If

    End Sub

End Module