Dim lint As Long

Private Sub Text1_Change()
lint = Len(Text1.Text)

If lint = 9 Then
Text1 = text1+vbnewline
if lint=17 then text1.width=等于输入16个字符所需的长度

End If
End Sub
'把文本的multiline的属性改为true

在网吧，没试过，不知道行不