'Janet Koublanou

'11/23/2020

'Horoscope Program

Imports System

Public Module Module1

    Public Sub Main()

        Dim month As Integer

        Dim day As Integer

        Dim message As String

        Console.WriteLine("Enter birth month in number form: ")

        month = Console.ReadLine()

        Console.WriteLine("Enter birth date in number form: ")

        day = Console.ReadLine

        If month = 3 and day >= 21 or month = 4 and day <= 19 Then

            message = "You are an Aries. Find a peaceful spot to manage shifting circumstances. Another's emergency can be your windfall. Stay in communication, and play the ace you've been holding."

        ElseIf month = 4 and day >= 20 or  month = 5 and day <= 20 Then

            message = "You are a Taurus. Invest in a shared dream. Community collaborations create value and beauty. Together, you have the connections and resources to make things happen. Patiently plan."

        ElseIf month = 5 and day >=21 or month = 6 and day <= 20 Then

            message = "You are a gemini. Team up with a genius, and discuss future options and career opportunities. Let yourself be persuaded to take greater leadership. Hide out and strategize."

        ElseIf month = 6 and day >=21 or month = 7 and day <= 22 Then

            message = "You are a cancer. Discover new passions this month, with Venus in Pisces. Investigate and plot your itinerary. You must choose your path carefully. Put your talent to work."

        ElseIf month = 7 and day >=23 or month = 8 and day <= 22 Then

            message = "You are a leo. Creative collaboration profits. Use your imagination, plus the latest technology. Work together to find ways to grow your nest egg. Take a gamble on love."

        ElseIf month = 8 and day >= 23 or month = 9 and day <= 22 Then

            message = "You are a virgo. Give in to the urge to craft something beautiful. Learn what you need. Express your feminine side. Discover renewed passion with someone special. Get creative."

        ElseIf month = 9 and day >= 23 or month = 10 and day <= 22 Then

            message = "You are a libra. Nurture health, harmony and happiness this month, with Venus in Pisces. Move your body and feed it well for energy. Express your love to grow it."

        ElseIf month = 10 and day >= 23 or month = 11 and day <= 21 Then

            message = "You are a scorpio. Love blossoms naturally over the next month. Play games with people you love and admire. Kindle some romance, with someone particularly wonderful. Share your heart."

        ElseIf month = 11 and day >= 22 or month = 12 and day <= 21 Then

            message = "You are a sagittarius. It's amazing what a little paint can do. Beautify your home with attention to line, form, texture and color. Wrap your family in love and comfort."

        ElseIf month = 12 and day >= 22 or month = 1 and day <= 19 Then

            message = "You are a capricorn. Venture out intellectually. Money follows the messaging. Talk about love, and you're especially persuasive. Friends ask your advice; contribute from your experience and heart."

        ElseIf month = 1 and day >= 20 or month = 2 and day <= 18 Then

            message = "You are an aquarius. Cash flow increases over this month, with Venus in Pisces. Keep communications channels open, as opportunities fly in. Buy, sell and make deals. Keep good track."

        ElseIf month = 2 and day <= 19 or month = 3 and day <= 20 Then 

            message = "You are a pisces. Follow your heart, with Venus in your sign this month. Invest in a style upgrade. Consider what you like, to discover what you love."

        End If

        Console.WriteLine(message)

    End Sub

End Module