Imports System

Public Module Module1

    Public Sub Main()

        dim Zodiac as char 

        console.WriteLine("Enter your Zodiaz sign")

        console.WriteLine()

        Zodiac=console.ReadLine()

        select case Zodiac

        case "aries"

            console.WriteLine("You will meet Shrek")

            console.WriteLine("lucky number 3")

        case "leo"

            console.WriteLine("You will be Freinds with Barry B Benson")

            console.WriteLine("lucky number 2")

        case "cancer"

            console.WriteLine("You will get three dollers")

            console.WriteLine("lucky number 1")

        case "pisces"

            console.WriteLine("You will become mayor of a small town")

            console.WriteLine("Lucky Number 2,000,000,001")

        case "scorpio"

            console.WriteLine("You will be a voice actor for Cars 4")

            console.WriteLine("Lucky number 4")

        case "taurus"

            console.WriteLine("You will be in the Bee Movie 2")

            console.WriteLine("Lucky number 6")

        case "saggittarius"

            console.WriteLine("You will get to be friends with Dr.Phil")

            console.WriteLine("lucky number 9")

        case "gemini"

            console.WriteLine("You will get a giftcard for publix")

            console.Writeline("lucky number 6.2")

        case "virgo"

            console.WriteLine("You will be able to meet Steve Harvey")

            console.WriteLine("lucky number 90")

        case "libra"

            console.WriteLine("You will be reading this sentence")

            console.WriteLine("lucy number 12")

        case "capricorn"

            console.WriteLine("You will not be freinds with Dr.Phil")

            console.WriteLine("lucky number 13")

        case "Aquarius"

            console.Writeline("You will win 4 dollers")

            console.WriteLine("Lucky number 55")

        end select

    End Sub

End Module