Something

Select Case month
            Case "MARCH"
                If day >= 21 Then
                    sign = "ARIES"
                ElseIf day <= 20 Then
                    sign = "PISCES"
                End If
            Case "APRIL"
                If day >= 20 Then
                    sign = "TAURUS"
                ElseIf day <= 20 Then
                    sign = "ARIES"
                End If

            Case "MAY"
                If day >= 21 Then
                    sign = "GEMINI"
                ElseIf day <= 20 Then
                    sign = "TAURUS"
                End If

            Case "JUNE"
                If day >= 21 Then
                    sign = "CANCER"
                ElseIf day <= 20 Then
                    sign = "GEMINI"
                End If

            Case "JULY"
                If day >= 23 Then
                    sign = "LEO"
                ElseIf day <= 22 Then
                    sign = "CANCER"
                End If
            Case "AUGUST"
                If day >= 23 Then
                    sign = "VIRGO"
                ElseIf day <= 22 Then
                    sign = "LEO"
                End If
            Case "SEPTEMBER"
                If day >= 23 Then
                    sign = "LIBRA"
                ElseIf day <= 22 Then
                    sign = "VIRGO"
                End If
            Case "OCTOBER"
                If day >= 23 Then
                    sign = "SCORPIO"
                ElseIf day <= 22 Then
                    sign = "LIBRA"
                End If
            Case "NOVEMBER"
                If day >= 22 Then
                    sign = "SAGITTARIUS"
                ElseIf day <= 21 Then
                    sign = "SCORPIO"
                End If
            Case "DECEMBER"
                If day >= 22 Then
                    sign = "CAPRICORN"
                ElseIf day <= 21 Then
                    sign = "SAGITTARIUS"
                End If
            Case "JANUARY"
                If day >= 20 Then
                    sign = "AQUARIUS"
                ElseIf day <= 19 Then
                    sign = "CAPRICORN"
                End If
            Case "FEBRUARY"
                If day >= 19 Then
                    sign = "PISCES"
                ElseIf day <= 18 Then
                    sign = "AQUARIUS"
                End If

        End Select
        horoscope_txt.Text = sign
    End Sub