It may be an idea to split them into two fields; I think its better that way. You might not get exactly the results you need first time with this, as you may have middle names, but as a start;
1. Find the first space in the name field;
FirstSpace: InStr(1,[YourNameField]," ",1)
2. Then use...