Private
Sub
TextBox1_Change()
Dim
test
As
String
While
Me
.TextBox1.CurLine > 2
test =
Me
.TextBox1.Text
If
Right(test, 1) = Chr(10)
Then
test = Left(test, Len(test) - 2)
Else
test = Left(test, Len(test) - 1)
End
If
Me
.TextBox1.Text = test
Wend
test =
Me
.TextBox1.Text
If
Me
.TextBox1.CurLine = 2
And
Right(test, 1) = Chr(10)
Then
Me
.TextBox1.Text = Left(test, Len(test) - 2)
End
Sub