私は星座に全く関心が無く、知識もありません。ＷＥＢで調べて下記のような表（配列）をつくりました。その表を引くのであればと下記コードを作ってみました。
フォームにテキストボックス１つ（下記ではTextBox1）コマンドボタン１つ（下記ではButton2）
を設けます。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim d As Date
Dim b As Date
Dim k As Date
Dim i As Integer
d = Date.Parse(TextBox1.Text)
MsgBox((d.Year.ToString) & "年")
Dim t(,) As String = {{"3月21日", "4月20日", "おひつじ座"}, _
{"4月21日", "5月21日", "おうし座"}, _
{"5月22日", "6月21日", "ふたご座"}, _
{"6月22日", "7月23日", "かに座"}, _
{"7月24日", "8月23日", "しし座"}, _
{"8月24日", "9月23日", "おとめ座"}, _
{"9月24日", "10月22日", "てんびん座"}, _
{"10月23日", "11月22日", "さそり座"}, _
{"11月23日", "12月22日", "いて座"}, _
{"12月23日", "1月20日", "やぎ座"}, _
{"1月21日", "2月20日", "みずがめ座"}, _
{"2月21日", "3月20日", "うお座"}}
b = Date.Parse(TextBox1.Text)
For i = 0 To 11
k = Date.Parse(d.Year.ToString & "年" & t(i, 0))
If b < k Then
MsgBox(t(i - 1, 2))
End If
Next i
End Sub
上記では、メッセージボックスに表示が出ますが、テキストボックスに表示は簡単と思いますので省略。
年月日数字は半角、誕生日は昭和何年何月何日でテストした。
お礼
ありがとうございます！