怎么让文本框输入不能为负数

可以让文本框只能输入数字字符（0~9），如以下代码：（注：这段代码还放行了退格键，因为退格键也会触发KeyPress事件）
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 And KeyAscii <> 8 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
这样，文本框中就只能输入非负整数了

Private Sub Text1_LostFocus()
If Val(Text1.Text) < 0 Then
Text1.Text = ""
Text1.SetFocus
MsgBox "这里不能输入负数！", 0 + 64, "系统提示"
End If
End Sub