Hi Kali,

You need to replace the vbCR (carriage returns) with empty strings when
writing it to a cell:

Sheets("Sheet1").Range("A1").Value = Replace$(txtTest.Text, vbCr, "")

--
Regards,

Jake Marx
www.longhead.com


Kali wrote:
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