Activate or click on the cell that has the string and run this macro it will put the spaced string in the next cell down. Assume its on Sheet1

Sub SpaceText ()
With Selection
Zrow = .Row + 1
Zcol = .Column
End With
With Worksheets("Sheet1")
.Cells(Zrow, Zcol) = ""
For I = 1 To Len(Selection.Text)
.Cells(Zrow, Zcol) = .Cells(Zrow, Zcol) & Mid(Selection.Text, I, 1) & " "
Next
End With
End sub