Imports System

Public Module Module1

    Public Sub Main()

     Dim PunchLine As String

​

​

        Console.WriteLine(" Why couldnt the chicken use the computer?   to see the punchline press enter")

        PunchLine = Console.ReadLine()

​

​

        If PunchLine = "" Then

            Console.ForegroundColor = ConsoleColor.Red

            Console.WriteLine("Because it couldnt CLUCK the mouse!")

        Else

            Console.WriteLine("follow instructions next time please!")

​

​

        End If

​

​

        Console.ReadLine()

​

    End Sub

End Module