关于VB的TEXT有关问题

关于VB的TEXT问题
我输入了


Private   Sub   Command1_Click()
Dim   a   As   Integer
If   Text2.Text   >   "1000 "   Then
Text2.SetFocus
Text2.Text   =   " "
Randomize
Select   Case   1
Case   1
Label1.Caption   =   "简单难度 "
End   Select
Else
If   Text2.Text   >   "300 "   Then
Select   Case   1
Case   1
Label1.Caption   =   "普通难度 "
End   Select
Else
Label1.Caption   =   "困难难度 "
End   If
End   If
If   Len(Text2)   >   4   Then
MsgBox   "不必这么慢吧？ "
End   If
If   Len(Text2)   <   2   Then
MsgBox   "太快了，把速度调慢点吧。 "
End   If
End   Sub


然后在TEXT2中输入     200却提示说简单难度

再有就是输入10它不提示说 "太快了 "     请问高手如何解决?

[解决办法]
ｖａｌ（Text2.Text） > 1000

用数字比较

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html