Thank you, Jake!
It looks much better now.

Kali.


-----Original Message-----
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

.