How do I eliminate extra lines from this userform?

[spurtniq]

Used this code:

Unless I'm missing the point of the question, this should do the job:

Private Sub CommandButton1_Click()
If Len(TextBox1.Text) > 0 Then ActiveSheet.PageSetup.LeftHeader = TextBox1.Text
If Len(TextBox2.Text) > 0 Then ActiveSheet.PageSetup.CenterHeader = TextBox2.Text
If Len(TextBox3.Text) > 0 Then ActiveSheet.PageSetup.RightHeader = TextBox3.Text
End Sub
_________________
Tom Urtis

from this earlier post:

http://www.mrexcel.com/board2/viewtopic.php?t=65454

Setup a userform with three textboxes and an "ok" button.

Setup the textboxes to accept multi-line text entry and set Enter behavior
to "true".

That's it.

When I look at the header, I ger an extra line of space in between each line
on the header.

So three lines of text takes up six lines of header.

How do I fix this?

Thanx.