Split string by line break into array

hey,
does anyone know how to read a multiline string in excel cells and put each line into a string array?

for example

in excell cells(1,1) = " option color
option size
option coating"


i tried to use the following code but it doesn't work.

--------------------------------------------------
dim txt as String
dim stringarray() as String
txt=Cells(1,1)
stringarray = Split(txt, vbCrLf)

Cells(1,2)=stringarray(0)
-------------------------------------------------

my desired result would be:

Cells(1,2) display "option color "

the actualy result i got from my code is:

Cells(1,2) display " option color
option size
option coating"


so the problem is the Cells(1,2) doesn't show just one line, instead, it just show everything from Cells(1,1). how do i identify line break here?

your help will be greatly appreciated!
thank you