如何去处TEXT中的回车键！

Question

一个text控件，其MultLine属性设为真，可以多行输入，但是有的时候输入完以后，比如不小心回按下很多回车键，我想把末尾的回车键字符删除，该怎么办？
想这样
Hello
Hello
空的地方都是回车键
想把这些回车键去掉，变成
Hello
Hello
就可以了。
谢谢！

Answer 1

Do While InStrRev(Text1.Text, vbCrLf) = Len(Text1.Text) - 1
    Text1.Text = Left(Text1.Text, InStrRev(Text1.Text, vbCrLf) - 1)
Loop

Answer 2

Dim Str1 as StringDo While Right(Str1,1)= Chr(13)
  Str1=Left(Str1,Len(Str1)-1)
Loop Str1末尾的回车键已去掉

Answer 3

回车换行=vbcrlf=chr(13) & chr(10)光去掉chr(13)一点用都没有

Answer 4

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0
End If
End Sub

Answer 5

Dim Str1 as StringDo While Right(Str1,2)= Chr(13) & Chr(10)
  Str1=Left(Str1,Len(Str1)-2)
Loop

Answer 6

判断是不是有两个连续的vbcrlf要是，有两个，就删掉一个。