Carriage returns (Enter) in a range

Sub test()
Dim y(), rg As Range, x, a, s, rw&, ii As Long, i As Long
    Set rg = Range("A1", Cells(Rows.Count, 1).End(3))
    x = rg.Value
    ReDim y(1 To rg.Rows.Count, 1 To 1)
    For ii = 1 To rg.Rows.Count
        rw = rw + 1
        a = Split(x(ii, 1), Chr(10))
                 For i = 0 To UBound(a, 1)
                       s = IIf(s = "", a(i), s & " " & a(i))
                 Next i
       y(rw, 1) = s: s = ""
    Next ii
 rg.Resize(UBound(y, 1), 1).Value = y
End Sub