Imports System

Public Module Module1

    Public Sub Main()

        Dim color as String = "blue"

        Select Case color

        Case "red" 

            console.WriteLine("You Selected Red")

        Case "blue" 

            console.WriteLine("You Selected Blue")

        Case "green" 

            console.WriteLine("You Selected Green")

        End Select

    End Sub

End Module