Use the InstrRev function to look for spaces. Use once for title, use again for last name. Concatenate the two and use the remainder for the firstname/mi portion. Will not matter what is left
e.g.
s_title := trim(mid(s_name,instrrev(s_name," "),99));
s_newname := trim(mid(s_name,1, instrrev(s_name," ")));
s_lname := trim(mid(s_newname,instrrev(s_newname," "),99));
s_fnameMI := trim(mid(s_newname,1, instrrev(s_newname," ")));
s_str := s_lname + " " + s_title + ", " + s_fnameMI;