I prefer to use string functions like

-mid
-instr
-find
-replace

etc.

For example

Private Function FirstName(CellData as String)
FirstName = Mid(CellData,1,Instr(1,CellData,Chr(32)))
End Function

But one question. What if the name is "Michael J. Fox" or etc?

Maybe it should start to search from the end?