I've been using the following to extract a last name from a list of individuals:

AEmployeeLastName = Split(Cell.Offset(0, -4), " ")(UBound(Split(Cell.Offset(0, -4), " ")))

What would be the simplest VBA code to extract the 1st name & middle initial?

For example

John A Doe
Extract John A

or

Jack Franklin Johnson
Extract Jack F

I really appreciate all your help. mikeburg