Dim value As String
value=Cells(1,1).Value

Dim value as string
Dim x as Variant
Dim i as integer

x = split(Cells(1,1),Chr(10))
for i = 0 to ubound(x)
   value = value & x(i)
Next i