This will work nicely with the comma+space in the text:
Function Fixname$ (x)
Fixname$ = Left$(Mid$(x + " , ", InStr(x + " , ", ", ") + 2), InStr(Mid$(x + ", ", InStr(x + ", ", ", ") + 3) + " ", " ")) +...