ME pueden ayudar con este codigo no se cual es el problema 
es un algoritmo que te da el signo zodiacal ingresando tu dia y mes de nacimiento pero no c porque no m sirve lo hice en VISUAL B. 2005 aplicacion de consola aki mi codigo:
'1. Zodiaco, El usuario debe de ingresar el día y mes de su nacimiento, y este me
'debe de decir, a que signo zodiacal pertenece.
Dim DIA, MES As Integer
Dim SIGNO As String
Console.Write("Ingresa el Dia de tu nacimiento: ")
DIA = CInt(Console.ReadLine)
Console.Write("Ingresa el mes de tu nacimiento(Ejem: 1,2,3,4...12): ")
MES = CInt(Console.ReadLine)
While DIA <= 31 AndAlso MES <= 12
If DIA >= 21 AndAlso MES = 3 Then
SIGNO = CStr("ARIES")
ElseIf DIA <= 20 AndAlso MES = 4 Then
SIGNO = CStr("ARIES")
ElseIf DIA >= 21 AndAlso MES = 4 Then
SIGNO = CStr("TAURO")
ElseIf DIA <= 20 AndAlso MES = 5 Then
SIGNO = CStr("TAURO")
ElseIf DIA >= 21 AndAlso MES = 5 Then
SIGNO = CStr("GEMINIS")
ElseIf DIA <= 20 AndAlso MES = 6 Then
SIGNO = CStr("GEMINIS")
ElseIf DIA >= 21 AndAlso MES = 6 Then
SIGNO = CStr("CANCER")
ElseIf DIA <= 20 AndAlso MES = 7 Then
SIGNO = CStr("CANCER")
ElseIf DIA >= 21 AndAlso MES = 7 Then
SIGNO = CStr("LEO")
ElseIf DIA <= 20 AndAlso MES = 8 Then
SIGNO = CStr("LEO")
ElseIf DIA >= 21 AndAlso MES = 8 Then
SIGNO = CStr("VIRGO")
ElseIf DIA <= 20 AndAlso MES = 9 Then
SIGNO = CStr("VIRGO")
ElseIf DIA >= 21 AndAlso MES = 9 Then
SIGNO = CStr("LIBRA")
ElseIf DIA <= 20 AndAlso MES = 10 Then
SIGNO = CStr("LIBRA")
ElseIf DIA >= 21 AndAlso MES = 10 Then
SIGNO = CStr("ESCORPION")
ElseIf DIA <= 20 AndAlso MES = 11 Then
SIGNO = CStr("ESCORPION")
ElseIf DIA >= 21 AndAlso MES = 11 Then
SIGNO = CStr("SAGITARIO")
ElseIf DIA <= 20 AndAlso MES = 12 Then
SIGNO = CStr("SAGITARIO")
ElseIf DIA >= 21 AndAlso MES = 12 Then
SIGNO = CStr("CAPRICORNIO")
ElseIf DIA <= 20 AndAlso MES = 1 Then
SIGNO = CStr("CAPRICORNIO")
ElseIf DIA >= 21 AndAlso MES = 1 Then
SIGNO = CStr("ACUARIO")
ElseIf DIA <= 20 AndAlso MES = 2 Then
SIGNO = CStr("ACUARIO")
ElseIf DIA >= 21 AndAlso MES = 2 Then
SIGNO = CStr("PISCIS")
ElseIf DIA <= 20 AndAlso MES = 3 Then
SIGNO = CStr("PISCIS")
End If
End While
Console.WriteLine("Tu signo es {0}", SIGNO)
Console.ReadLine()
salu2 al foro 