Imports System

Public Module Module1

    Public Sub Main()

        Dim choice as string

        Dim birthmonth as String

        Dim stone as string 

        '

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

        Console.WriteLine("1) January")

        Console.WriteLine("2) February")

        Console.WriteLine("3) March")

        Console.WriteLine("4) April")

        Console.WriteLine("5) May")

        Console.WriteLine("6) June")

        Console.WriteLine("7) July")

        Console.WriteLine("8) August")

        Console.WriteLine("9) September")

        Console.WriteLine("10) October")

        Console.WriteLine("11) November")

        Console.WriteLine("12) December")

        choice = Console.ReadLine()

        select choice

        case 1:

            birthmonth = "January"

            stone = "Garnet"

        case 2:

            birthmonth = "February"

            stone = "Amethyst"

        case 3:

        birthmonth = "March"

            stone = "Bloodstone"

        case 4:

            birthmonth = "April"

            stone = " Diamond"

        case 5:

            birthmonth = "May"

            stone = "Emerald"

        case 6:

            birthmonth = "June"

            stone = "Pearl"

        case 7:

            birthmonth = "July"

            stone = "Ruby"

        case 8:

            birthmonth = "August"

            stone =  "Peridot"

        case 9: 

            birthmonth = "September"

            stone = "Sapphire"

        case 10:

            birthmonth = "October"

            stone = "Opal"

        case 11: 

            birthmonth = "November"

            stone = "Topaz"

        case 12:

            birthmonth = "December"

            stone = "Turquoise"

            case else: 

            birthmonth = "Unknown"

            stone = 0

        end select

    End Sub

End Module