使用如下代码，在文本框的按键事件中加入：
　　Private Sub Textl_KeyPress（KeyAscii As Integer）
　　If keyAscii> =33 Then
　　If KeyAscii< =vbkey9 And KeyAscii> =vbKey0 Then
　　Else '把KeyAscii设为0就是取消输 入。
　　KeyAscii=0
　　MsgBox ”不要输入数字！”
　　End If
　　End If
　　End Sub
　　注意：KeyAscii键值与KeyCode 相同，我们可以查看KeyCode值，不 过有些KeyCode键值必须在 KeyDown和KeyUp中才有效，在 KeyPress的KeyAscii中没用。利用 KeyAscii=0的方式在KeyPress中有 用，但在KeyDown中让KeyCode=0 就不行了。