Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer

        dim largest as double

        dim count as integer

        largest = 0

        For count = 1 to 3

        console.writeline(" Enter a number ")

        number = console.readline()

        If number > largest then

            largest = number

        end if

    next

    console.writeline(" Largest number is " & largest)

    End Sub

End Module