Insering newline at every space

You can Split them like this:

Sub Example()
'create an array to hold all of the words
Dim Words() As String
'split string into words, using space as delimiter
Words = Split(txt, " ")
MsgBox "String contains " & (UBound(Words) + 1) & " words"

' so you can now write them in new form as Words(0), Words(1), Words(2) etc
End Sub