星座判斷需要用Excal 做的函數巨集

請編寫一函數starsign(d as date) 以輸入日期判定星座. 以VB 的Month()與Day()函數抓取月份與日期有大大可以給我用Excal 做的函數巨集嗎寫不出來啊
EXCEL VBA．利用〔Function自訂函數〕查詢〔十二星座〕　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－　■程式碼：　Function 星座(xMon%

xDay%) As String　Dim ChkVal%