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