Imports System

Public Module Module1

    Public Sub Main()

        dim chrcolor as char

        Console.WriteLine("Enter the color that you like; B = Blue, R = Red, E = Exit")

        chrcolor = Console.ReadLine()

        if chrcolor = "B" Then

            Console.WriteLine(" Your Favorite color is blue ")

        Elseif chrcolor = "R" then

            Console.WriteLine(" Your Favorite color is red ")

        Elseif chrcolor = "E" Then

            Console.WriteLine(" You have selected to exit ")

        end if

    End Sub

End Module