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) + " ", " "

) + Left$(x + ", ", InStr(x + ", ", ", "

- 1)
End Function
This makes "Smith, Bob" into "Bob Smith" and "ABC Supply" stays as "ABC Supply"