Try this. It will find where the space is between the names and then extract only the last part.
sFullName is the variable for the full name.
Dim iSpacePos As Integer
Dim sFullName As String
SepName As String
iSpacePos = InStr(sFullName, " ")
SepName = Mid$(sFullName, iSpacePos + 1...