Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim choice as Integer

        Dim month as String

        Dim Birthstone as String

        '

        Console.WriteLine("Select your birth month")

        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"

                Birthstone = "Garnet"

            case 2 : month = "Febuary"

                Birthstone = "Amethyst"

            case 3 : month = "March"

                Birthstone = "Aquamarine"

            case 4 : month = "April"

                Birthstone = "Diamond"

            case 5 : month = "May"

                Birthstone = "Emerald"

            case 6 : month = "June"

                Birthstone = "Pearl"

            case 7 : month = "July"

                Birthstone = "Ruby"

            case 8 : month = "August"

                Birthstone = "Peridot"

            case 9 : month = "September"

                Birthstone = "Sapphire"

            case 10 : month = "October"

                Birthstone = "Opal"

            case 11 : month = "November"

                Birthstone = "Topaz"

            case 12 : month = "December"

                Birthstone = "tanzanite"

            case else : month = "Nothing"

                Birthstone = "Probably stupid"

        end select

​

        Console.WriteLine("You selected {0} as your birth month, your Birthstone is {1:C2}, {2}", month, Birthstone, "Totally Tubular!")

    End Sub

End Module

​