Funkcja, która zamieni spacje na wiersze (excel)

Nie wiem, do czego mogłaby się przytać ale np. taka jak poniżej. Uwaga na użycie Join(Application.Transpose etc.

Wymyśliłem sobie zadanie: jak przerobić by funkcja wstawiała kolejny wiersz co ileś znaków lub co ileś wyrazów. cdn

Function SpacesToRows(myString As Range) As String
    SpacesToRows = Replace(Join(Application.Transpose(myString.Value), " "), " ", vbCrLf)
End Function