Imports System
Public Module Module1
Public Sub Main()
dim time as integer
Console.WriteLine("How long do you watch TV a day?")
time= Console.ReadLine()
If time<2 then
Console.WriteLine("That should be ok.")
else if time>2 and time<4 then
Console.WriteLine("That will rot your brain")
else if time>4 then
Console.WriteLine("That is too much TV")
end if
End Sub
End Module