做一个按钮，一个TEXT框。
简单的说就是按钮去除空行（如果该行不为空就不用退格）
比如：
123

456
按钮作用：
123
456
而不是：123456

自己写了下，帮忙看下错在哪里。貌似实现不了。

Private Sub Command6_Click()
S = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(S)
If Len(S(i)) > 0 Then
S(i) = Replace(Text1.Text, vbCrLf, Chr(8))
End If
Next i
End Sub