case 为什么运转不起来呢？

我写了个猜数字的代码，就是窗体随机生成一个100以内的数字，然后你向文本框里填入你猜测的数字，如果大了，消息框提示你大了，如果小了，就提示你小了，直到猜测对了为止

我做了，可是无论我填入什么数字，都显示大了，哪怕是1

这究竟是怎么回事？？
Private Sub Form_Load()
Dim c
Randomize
c = Int((100 * Rnd) + 1)
End Sub

Private Sub Command1_Click()
Dim b As Integer

b = Val(Text.Text)

Select Case b
Case Is = c
MsgBox "恭喜你答对了"

Case Is > c:
MsgBox "太大了"
Text.SetFocus
Case Is < c:
MsgBox "太小了"
Text.SetFocus
End Select

List1.AddItem "你回答的数字是" & b

Randomize

End Sub