Imports System

​

Public Module Module1

​

    dim month as string

​

    dim answer as string

​

    Public Sub Main()

        Console.WriteLine("What Month Were You Born?")

        month = console.ReadLine()

        Select month

            case "January" : Month = "January"

                answer = "Garnet"

            case "February" : Month = "February"

                answer = "Amethyst"

            case "March" : Month = "March"

                answer = "Aquamarine"

            case "April" : Month = "April"

                answer = "Crystal"

            case "May" : Month = "May"

                answer = "Emerald"

            case "June" : Month = "June"

                answer = "Alexandrite"

            case "July" : Month = "July"

                answer = "Ruby"

            case "August" : Month = "August"

                answer = "Peridot"

            case "September" : Month = "September"

                answer = "Sapphire"

            case "October" : Month = "October"

                answer = "Rose"

            case "November" : Month = "November"

                answer = "Citrine"

            case "December" : Month = "December"

                answer = "Blue Zircon"

        end select

​

        Console.Writeline(" The month you chose is {0}, which has the birthstone {1} ", month, answer)

    End Sub

End Module

​