per trovare il segno prova ad usare questa Function:

codice:
Function SegnoZodiacale(DataNascita As Date) As String
    
    Dim NomiSegni(11)
    Dim Segni(11)
    
    NomiSegni(0) = "Acquario"
    NomiSegni(1) = "Pesci"
    NomiSegni(2) = "Ariete"
    NomiSegni(3) = "Toro"
    NomiSegni(4) = "Gemelli"
    NomiSegni(5) = "Cancro"
    NomiSegni(6) = "Leone"
    NomiSegni(7) = "Vergine"
    NomiSegni(8) = "Bilancia"
    NomiSegni(9) = "Scorpione"
    NomiSegni(10) = "Saggitario"
    NomiSegni(11) = "Capricorno"
    
    Segni(0) = "21/1"
    Segni(1) = "20/2"
    Segni(2) = "21/3"
    Segni(3) = "21/4"
    Segni(4) = "21/5"
    Segni(5) = "22/6"
    Segni(6) = "23/7"
    Segni(7) = "24/8"
    Segni(8) = "23/9"
    Segni(9) = "23/10"
    Segni(10) = "23/11"
    Segni(11) = "22/12"

    For K = 0 To 11
        If K < 11 Then
            DataRif1 = Segni(K) & "/" & Year(DataNascita)
            DataRif2 = Segni(K + 1) & "/" & Year(DataNascita)
            If CDate(DataNascita) >= CDate(DataRif1) And _
               CDate(DataNascita) < CDate(DataRif2) Then
                    SegnoZodiacale = NomiSegni(K)
                    Exit For
            End If
        Else
            SegnoZodiacale = NomiSegni(K)
            Exit For
        End If
    Next K

End Function
la puoi usare così:

codice:
txt_zody.Text = SegnoZodiacale(DataNascita)
dove la variabile DataNascita, ovviamente, contiene la data di cui ti interessa sapere il segno corrispondente.

Boolean