求助，不知道哪出问题了！

问题编写一个可以查询某人属相的程序（提示：1900年出生的人属“鼠”）
 程序：
Dim Year As Integer
 Dim Name As Integer
 Year = Val(InputBox("请输人出生年份：", "生肖查询", 1900))
 Label1.Caption = "您是" & Str(Year) + "年出生的生肖为："
 Name = Year Mod 12
 Select Case Name  
 Case 4     
 Label2.Caption = "鼠"  
 Case 5   
 Label2.Caption = "牛"   
 Case 6     
 Label2.Caption = "虎"   
 Case 7     
 Label2.Caption = "兔"   
 Case 8     
 Label2.Caption = "龙"   
 Case 9     
 Label2.Caption = "蛇"  
 Case 10     
 Label2.Caption = "马"   
 Case 11     
 Label2.Caption = "羊"   
 Case 0     
 Label2.Caption = "猴"   
 Case 1     
 Label2.Caption = "鸡"   
 Case 2     
 Label2.Caption = "狗"   
 Case 3     
 Label2.Caption = "猪"
 End Select
以上是我自个儿编的，可运行的时候好像不对，求高手帮忙，不知是哪错了！