Does anyone have a routine written that they could share to parse a name field into the separate fields.

I have to import a file, and the name is all in one field, the current value of the field is formatted as:

lastname suffix firstname midle-initial

Example
Kelly Jr Kirk A
Smith Bob
Roberts Ben D

Thanks for any help.

Kirk