Dim a As Integer
Dim b As String
Dim c As String
a = TextBox1.Text
b = TextBox2.Text
b = UCase(TextBox2.Text)
If b <> "ENERO" And b <> "FEBRERO" And b <> "MARZO" And b <> "ABRIL" And b <> "MAYO" And b <> "JUNIO" And b <> "JULIO" And b <> "AGOSTO" And b <> "SEPTIEMBRE" And b <> "OCTUBRE" And b <> "NOVIEMBRE" And b <> "DICIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "ENERO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 29 And b = "FEBRERO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "MARZO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "ABRIL" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "MAYO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "JUNIO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "JULIO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "AGOSTO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "SEPTIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "OCTUBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "NOVIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "DICIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 20 And a < 32 And b = "MARZO" Then
c = "Tu Signo Es ARIES"
ElseIf a > 0 And a < 21 And b = "ABRIL" Then
c = "Tu Signo Es ARIES"
ElseIf a > 21 And a < 31 And b = "ABRIL" Then
c = "Tu Signo Es TAURO"
ElseIf a > 0 And a < 22 And b = "MAYO" Then
c = "Tu Signo Es TAURO"
ElseIf a > 21 And a < 32 And b = "MAYO" Then
c = "Tu Signo Es GEMINIS"
ElseIf a > 0 And a < 22 And b = "JUNIO" Then
c = "Tu Signo Es GEMINIS"
ElseIf a > 20 And a < 30 And b = "JUNIO" Then
c = "Tu Signo Es CÁNCER"
ElseIf a > 0 And a < 24 And b = "JULIO" Then
c = "Tu Signo Es CÁNCER"
ElseIf a > 23 And a < 32 And b = "JULIO" Then
c = "Tu Signo Es LEO"
ElseIf a > 0 And a < 24 And b = "AGOSTO" Then
c = "Tu Signo Es LEO"
ElseIf a > 24 And a < 31 And b = "AGOSTO" Then
c = "Tu Signo Es VIRGO"
ElseIf a > 0 And a < 24 And b = "SEPTIEMBRE" Then
c = "Tu Signo Es VIRGO"
ElseIf a > 23 And a < 30 And b = "SEPTIEMBRE" Then
c = "Tu Signo Es LIBRA"
ElseIf a > 0 And a < 24 And b = "OCTUBRE" Then
c = "Tu Signo Es LIBRA"
ElseIf a > 23 And a < 31 And b = "OCTUBRE" Then
c = "Tu Signo Es ESCORPIO"
ElseIf a > 0 And a < 23 And b = "NOVIEMBRE" Then
c = "Tu Signo Es ESCORPIO"
ElseIf a > 22 And a < 30 And b = "NOVIEMBRE" Then
c = "Tu Signo Es SAGITARIO"
ElseIf a > 0 And a < 22 And b = "DICIEMBRE" Then
c = "Tu Signo Es SAGITARIO"
ElseIf a > 21 And a < 31 And b = "DICIEMBRE" Then
c = "Tu Signo Es CAPRICORNIO"
ElseIf a > 0 And a < 21 And b = "ENERO" Then
c = "Tu Signo Es CAPRICORNIO"
ElseIf a > 20 And a < 31 And b = "ENERO" Then
c = "Tu Signo Es ACUARIO"
ElseIf a > 0 And a < 20 And b = "FEBRERO" Then
c = "Tu Signo Es ACUARIO"
ElseIf a > 19 And a < 29 And b = "FEBRERO" Then
c = "Tu Signo Es PISCIS"
ElseIf a > 0 And a < 19 And b = "MARZO" Then
c = "Tu Signo Es PISCIS"
End If
TextBox3 = c
End Sub