因此，正确的做法是将代码中的AA = Split(Text3.Chr(13)) 改为 AA = Split(Text3.vbCrLf) ，这样可以避免多余换行符的问题。还有一种实现方法，如下：Private Sub Command1_Click()。Dim AA() As String。AA = Split(Text3.vbCrLf)。For i = 0 To UBound(AA)。AA(i) = Text1 & AA(i) & Text2。Next；Text3 = Join(AA.vbCrLf)。End Sub；这种方法通过将文本框内容按“回车换行符”（vbCrLf）分割，然后逐行处理，最后再用“回车换行符”重新组合，可以有效清除文本最后一行的多余换行符。