pra quem precisar achei essa rotina
Function LineTrim(ByVal sText As String) As String
'-- add pre Lf and post Cr
sText = vbLf & sText & vbCr '<--- unusual characters added
'-- remove all spaces at the end of lines
Do While InStr(sText, " " & vbCr)
sText = Replace(sText, " " & vbCr, vbCr)
Loop
'-- remove all multiple CrLf's
sText = Replace(sText, vbLf & vbCr, "") '<--- westconn1's smart line
'-- remove first and last added characters
LineTrim = Mid$(sText, 2, Len(sText) - 2)
End Function
pra usar
textbox1.Text = LineTrim(textbox1.Text)
dida