Imports System 'Required for all programs in VB.NET
Public Module Module1 'Open a module
Public Sub Main() 'Open a subroutine
Dim intInput as String
Console.WriteLine("Enter your age") 'Outputs "Enter your age"
intInput = Console.Readline () 'User enters an age and the computer reads it
If intInput < 13 THEN 'If the number is less than 13 then
Console.WriteLine("Wow... a computer genius" ) '"Wow... a computer genius" is displayed
ELSE IF intInput < 20 THEN 'Else if the number is above 20 then
Console.WriteLine("Hello teenager" ) '"Hello teenager" is displayed
END IF 'End if this occurs
End Sub 'End subroutine
End Module 'End program
