Imports System

Public Module Module1

    Public Sub Main()

        Dim Counter, largest, num2 as integer

        Console.WriteLine("Input a number")

        largest=console.ReadLine()

        For counter = 1 to 5

        console.WriteLine("input a second number")

        num2=console.ReadLine()

        If num2 > largest then

            largest=num2

        End if 

    next

    console.WriteLine("the largest number is " & largest)

    End Sub

End Module