Split text box by Return Character

I have a textbox in my userform which has multiline properties available.

The user can enter more than one line of data in the text box and can enter a list such as the following:

Adam
Brian
Colin
David

I have the following code in the userform.

Dim avarSplit As Variant
Dim intIndex As Variant

avarSplit = Split((TextBox1), Chr(13))
For intIndex = LBound(avarSplit) To UBound(avarSplit)

LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

Range("A" & LastRow).Value = avarSplit(intIndex)

Next

The data is split out, however, if there is more than one record it leaves a line gap.

I have attached an example to show what i mean.

Is there anyway I can get it so that each line that is entered in the userform is displayed exactly as one line in the relevant cell on the workbook?

Try this

avarSplit = Split((TextBox1.Value, vbnewline)

Originally Posted by royUK

Try this

avarSplit = Split((TextBox1.Value, vbnewline)

Thanks Roy,
Simple but yet so effective.

Rep added and thread solved.

Thanks for the rep,

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save