Imports System

'Aparajit Kannan'

'Horoscope project'

'11/19/2021'

Public Module Module1

    Public Sub Main()

        Dim birthday As string

        Dim AstrologicalSign As string

        Dim January As string

        Dim February As string

        Dim March As string

        Dim April As string

        Dim May As string

        Dim June As String

        Dim July As String

        Dim August As String

        Dim September As String

        Dim October As String

        Dim November As String

        Dim December As String

        Console.WriteLine(" Please enter your birthday: ")

        birthday= Console.ReadLine()

​

        Select Case birthday

        Case birthday March 21 to April 19

            Result= Console.WriteLine("Your astrological sign is aries")

        End Select

    End Sub

End Module