请问，如何限制一个TEXTBOX里只能输入数字且不大于某一数值？

首先对数据的控制，只让其输入数字，即可用下面的函数实现。比较简单！

IsNumeric(expression)
expression 参数可以是任意表达式。
说明
如果整个 expression 被识别为数字，IsNumeric 函数返回 True；否则函数返回 False。如果 expression 是日期表达式，IsNumeric 函数返回 False。
下面的示例利用 IsNumeric 函数决定变量是否可以作为数值：Dim MyVar, MyCheck
MyVar = 53 '赋值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "459.95" ' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回True。
MyVar = "45 Help" ' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回 False。

第二，限制在textbox中输入的数字，其值小于指定的数值或者！

public Temp As String
MAXNUM=35

Private Sub txtHis_Change(Index As Integer)
If Len(txtHis(Index).Text) > 2 Then
txtHis(Index).Text = Temp
ElseIf Val(txtHis(Index).Text) > MAXNUM Then
txtHis(Index).Text = ""
Else
Temp = txtHis(Index).Text
End If
End Sub

Private Sub txtHis_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 75 Then
KeyAscii = 0
End If
End Sub

高手指点