Split fonksiyonuyla metni parcalara ayırabilirsiniz

dim diziX as string

diziX=split(trim(metin)," ") 

SoyAdX= diziX(UBOUND(diziX)) 

AdX=replace(metin,SoyAdX,"")

Ad ve soyadı böyle ayirabilirsiniz