vb 限制text输入字符长度

TextBox的MaxLength属性设置能输入的字符的最大数
MaxLength为零时不限制长度

Text1.MaxLength=20
（只能输入20字符）
这个不就行了么？？！有必要那么复杂么？？

Private Sub Text1_Change()
If Len(Text1.Text) > 20 Then
Text1.Text = Left(Text1.Text, 20)
Else
Text1.Text = Text1.Text
End If
End Sub
这里的20是你限定的最大字符数