Imports System

Public Module Module1

    Public Sub Main()

        dim zodiac() as string = {"Aries","Taurus","Gemini","Cancer","Leo","Virgo"}

        dim zodiac2() as string = {"Libra","Scorpius","Sagittarius","Capricorn","Aquarius","Pisces"}

        dim day as integer

        dim month as string

        Console.WriteLine("Enter day:")

        day = Console.ReadLine

        Console.WriteLine("Enter month:")

        month = Console.ReadLine

        Console.WriteLine()

        if (month = "April")then

            If (day>=21 ) or ( day<=21 ) then 

                Console.WriteLine(month & day & zodiac("Aries"))    

            End if

        End if

        if (month = "May") then 

            If (day>=20) or (day<=20) then 

                Console.WriteLine(month & day & zodiac("Taurus"))

            End if

        End if

        if (month  = "June") then

            if (day>=21) or (day<=21) then 

                Console.WriteLine(month & day & zodiac("Gemini"))

            End if 

        End if

        if (month  = "July") then

            if (day>=22) or (day<=22) then 

                Console.WriteLine(month & day & zodiac("Cancer"))

            End if 

        End if

        if (month  = "August") then

            if (day>=23) or (day<=22) then 

                Console.WriteLine(month & day & zodiac("Leo"))

            End if 

        End if

        if (month  = "September") then

            if (day>=23) or (day<=22) then 

                Console.WriteLine(month & day & zodiac2("Virgo"))

            end if 

        end if 

        if (month  = "Ocotober") then

            if (day>=23) or (day<=23) then 

                Console.WriteLine(month & day & zodiac2("Libra"))

            end if 

        end if

        if (month  = "November") then

            if (day>=24) or (day<=21) then 

                Console.WriteLine(month & day & zodiac2("Scorpius"))

            end if 

        end if

        if (month  = "December") then

            if (day>=22) or (day<=21) then 

                Console.WriteLine(month & day & zodiac2("Sagittarius"))

            end if

        end if 

        if (month  = "January") then

            if (day>=22) or (day<=19) then 

                Console.WriteLine(month & day & zodiac2("Capricorn"))

            end if 

        end if 

        if (month  = "February") then

            if (day>=20) or (day<=18) then 

                Console.WriteLine(month & day & zodiac2("Aquarius"))

            end if 

        end if

        if (month  = "March") then

            if (day>=19) or (day<=20) then 

                Console.WriteLine(month & day & zodiac2("Pisces"))

            end if 

        end if 

    End Sub

End Module