Private Sub CommandButton1_Click()
Range("B9").Value = _
Application.Substitute(TextBox1.Text, Chr(13), "")
End Sub

Make sure wordwrap is turned on in the cell.


Regards,
Tom Ogilvy

"Kali" wrote in message
...
Hello there

I have a form with multilined text boxes, in order to
insert several lines I go "shift-enter", but when I save
it, there is an extra character at the end of each line.
I would really like to get rid of it.

If you could help me, it would be great.

Thanks!
Kali