Imports System

Public Module Module1

    Public Sub Main()

        Dim A as integer

        Console.Writeline("Please enter a number.")

        A=console.readline()

        If A >100 then

            console.writeline("Congradulation!")

        Elseif A=100 then

            console.writeline("Nearly")

        Else

            console.writeline("Sorry")

        End if

    End Sub

End Module