Functions to Extract Name into Last Name, First Name, and MI

Can anyone help me to write three functions in vba access in order to extract the name like the examples below into last name, first name and MI?

the format of the name is "First Name", "MI", "Last Name" and "Suffix".
however, if there is no "MI", the MI part will be missing.

CREE L SHUMPERT
JOSE G. HERNANDEZ JR
MICHELLE HERNANDEZ
CHEYENNE A CORRAL
KENYA AGUINIGA
SHIRLEY MENDEZ-PENA

Thanks!

for example,
one of the name is "JOSE G. HERNANDEZ JR"
lastname(name) = "Hernandez"
firstname(name) = "Jose"
MI(name) = "G"