How to get first and last word in a field 1

[Aximboy]

Hello! As the title said, I need help on how to get the first and last word from a field.

For example, a field contains a contact name "Mr. John Lennon".
From a textbox, how to I make it show "Mr. Lennon" only?

Thanks in advance.

 

[SkipVought]

hi

dim a 

a = split([YourField], " ")

Txtbx.Text = a(0) & " " & a(ubound(a))

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Aximboy]

IT WORKED!!!
You are awesome! Thank you very much!!!