Dim month, day As Integer
Console.Write("Enter the month you were born in as a number: ") month = Console.ReadLine()
Console.Write("Enter the day were born on as a number: ") If month = 3 And (day >= 21 Or day <= 31) Then
horoscope = "Aries (March 21-April 19): 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 >= 1 And day <= 19) Then
horoscope = "Aries (March 21-April 19): 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 And day <= 30) Then
horoscope = "Taurus (April 20-May 20): 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 >= 1 And day <= 20) Then
horoscope = "Taurus (April 20-May 20): 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 And day <= 31) Then
horoscope = "Gemini (May 21-June 20): 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 >= 1 And day <= 20) Then
horoscope = "Gemini (May 21-June 20): 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 And day <= 30) Then
horoscope = "Cancer (June 21-July 22): 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 >= 1 And day <= 22) Then
horoscope = "Cancer (June 21-July 22): 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 And day <= 31) Then
horoscope = "Leo (July 23-Aug. 22): 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 >= 1 And day <= 22) Then
horoscope = "Leo (July 23-Aug. 22): 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 And day <= 31) Then
horoscope = "Virgo (Aug. 23-Sept. 22): 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 >= 1 And day <=22) Then
horoscope = "Virgo (Aug. 23-Sept. 22): 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 And day <= 30) Then
horoscope = "Libra (Sept. 23-Oct. 22): 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 >= 1 And day <= 22) Then
horoscope = "Libra (Sept. 23-Oct. 22): 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 And day <= 31) Then
horoscope = "Scorpio (Oct. 23-Nov. 21): 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 >= 1 And day <= 21) Then
horoscope = "Scorpio (Oct. 23-Nov. 21): 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 And day <= 30) Then
horoscope = "Sagittarius (Nov. 22-Dec. 21): 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 >= 1 And day <= 21) Then
horoscope = "Sagittarius (Nov. 22-Dec. 21): 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 And day <= 31) Then
horoscope = "Capricorn (Dec. 22-Jan. 19): 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 >= 1 And day <= 19)Then
horoscope = "Capricorn (Dec. 22-Jan. 19): 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 And day <= 31) Then
horoscope = "Aquarius (Jan. 20-Feb. 18): 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 >= 1 And day <= 18) Then
horoscope = "Aquarius (Jan. 20-Feb. 18): 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 And day <= 29) Then
horoscope = "Pisces (Feb. 19-March 20): Follow your heart, with Venus in your sign this month. Invest in a style upgrade. Consider what you like, to discover what you love."
ElseIf month = 3 And (day >= 1 And day <= 20) Then
horoscope = "Pisces (Feb. 19-March 20): Follow your heart, with Venus in your sign this month. Invest in a style upgrade. Consider what you like, to discover what you love."
horoscope = "Please Enter a valid month or date"
Console.WriteLine("Your birthday is: " & month & "/" & day) Console.WriteLine("You are a " & horoscope) 
