Imports System

Public Module Module1

    Public Sub Main()

        Dim choice as Integer

        Dim Month as String

        Dim total as String

        console.WriteLine("Which Month were you born in?")

        console.WriteLine("1) January")

        console.WriteLine("2) Febuary")

        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:

            month = "January"

            total = "Garnet"

        case 2:

            month = "Febuary"

            total = "Amythest"

        case 3:

            month = "March"

            total = "Aquamarine"

        case 4:

            month = "April"

            total = "White Topaz"

        case 5:

            month = "May"

            total = "Emerald"

        case 6:

            month = "June"

            total = "Alexandrite"

        case 7:

            month = "July"

            total = "Ruby"

        case 8:

            month = "August"

            total = "Peridot"

        case 9:

            month = "September"

            total = "Sapphire"

        case 10:

            month = "October"

            total = "Tourmaline"

        case 11:

            month = "November"

            total = "Citrine"

        case 12:

            month = "December"

            total = "Blue Topaz"

        end select

        console.WriteLine("You chose {0} your birthstone is {1} .That is {2}", month, total, "Amazing!")

​

    End Sub

End Module