Imports System

Public Module Module1

    Public Sub Main()

        dim month as string

        dim stone as string

        Console.WriteLine("Enter your month of birth:")

        month = console.ReadLine()

        select month

        case "January"

            stone = "Garnet"

        case "February"

            stone = "Amethyst"

        case "March"

            stone = "Aquamarine"

        case "April"

            stone = "Diamond"

        case "May"

            stone = "Emerald"

        case "June"

            stone = "Alexandrite"

        case "July"

            stone = "Ruby"

        case "August"

            stone = "Peridot"

        case "September"

            stone = "Sapphire"

        case "October"

            stone = "Tourmaline"

        case "November:

            stone = "Topaz"

        case "December"

            stone = "Zircon"

        end select

        console.writeline("Your birthstone is {0}", stone)

    End Sub

End Module