Imports System

Public Module Module1

    Public Sub Main()

        dim tvTime as integer

        Console.WriteLine("How long do you watch TV in hours? ")

        tvTime = Console.ReadLine()

        if (tvTime <= 2)

            Console.Write("That should be okay. ")

        elseif (2 <= tvTime <= 4)

            Console.Write("That will rot your brain. ")

        else 

            Console.Write("That is too much TV." )

        end if

    End Sub

End Module