Excel 2007 VBA的一个关于时间的选择分支，求解答-经管之家官网！

刚接触VBA不长时间，碰到一个奇怪问题，如下是程序：
Sub inputbox输入日期验证()
Dim varDate As Variant
'显示inputbox对话框-确保输入的日期是明天的日期
varDate = InputBox("输入今天以后的日期：", "输入日期", Date + 1)
'确定用户输入的数据是日期
Select Case IsDate(varDate)
'如果不是日期型数据，则给出一个数据无效或者没有输入数据的提示
Case False:
Select Case varDate
Case ""
MsgBox "用户取消了输入或者没有输入"
Case Else
MsgBox "无效的输入"
End Select
Case True:
'如果输入是日期，则确定该日期是未来的日期
Select Case varDate
Case Is <= Date
MsgBox "无效的日期，必须是今天以后的日期"
Case Is > Date
MsgBox varDate & "是有效输入"
End Select
End Select
End Sub
当输入框我输入2012-1-12时（今天是2012-1-19），程序却走Case Is > Date这个分支，我用单步执行也证明了确实是走了这个分支，哪位大侠可以指点一下为什么会这样呢，谢谢~~~~