dim diziX as string
diziX=split(trim(metin)," ")
SoyAdX= diziX(UBOUND(diziX))
AdX=replace(metin,SoyAdX,"")
Ad ve soyadı böyle ayirabilirsiniz
Split fonksiyonuyla metni parcalara ayırabilirsiniz