Function SplitSpc(ByVal Z As String) As Variant()
Dim P As Long, C As String * 1
For P = 1 To 4: C = Mid$(".!]»", P, 1): Z = Replace(Z, C, C & "|"): Next P
Z = Replace(Z, "|,", ",")
Z = Replace(Z, "|»", "»")
SplitSpc = WorksheetFunction.Transpose(Split(Z, "|"))
End Function