返回文本的字符数为三个
Dim a As String
a = Text1
If Len(Text1) > 3 Then a = Mid(Text1, 1, 3)
'a 即返回的字符，超过3个变成3个
设置文本的字符数为三个
Text1.MaxLenght=3
