一楼防抽

Private Sub Text1_Change()
Static mTest As String
Dim i As Integer
If LenB(StrConv(Text1.Text, vbFromUnicode)) > Text1.MaxLength Then
i = Text1.SelStart
Text1.Text = mTest
If i > 0 Then Text1.SelStart = i - 1
Else
mTest = Text1.Text
End If
End Sub