在change()事件中可以有效地防止非法字符输入或粘贴，用Isnumeric()函数可以实现非数字字符的输入。检查字符的长度可以在command_click()等事件中，也可以在change()事件中。假设确定按钮是cmd1。
以下是完整代码，可阻止非英文和非数字字符输入，并且要求输入字符大于8位：
Private Sub Form_Load()
Text1 = ""
End Sub

Private Sub Text1_Change()
Dim i As Integer
Dim x As Integer
Dim y As String
If Text1 = "" Then Exit Sub
x = Len(Text1)
If x >= 8 Then'如果要求小于20可在then前加上and x<=20
cmd1.Enabled = True
Else
cmd1.Enabled = False
End If
For i = 0 To x
y = Mid(Text1, x, 1)
If Asc(y) >= 65 And Asc(y) <= 90 Or Asc(y) >= 97 And Asc(y) <= 122 Or IsNumeric(Text1) Then
Exit Sub
Else
Text1.Text = ""
cmd1.Enabled = False
Exit Sub
End If
Next i
End Sub

[此贴子已经被作者于2006-3-18 10:14:06编辑过]