Hard to follow that code but I would suggest a different approach.
All you really seem to need is a call to the Split() function

Code:
Dim NameParts() as String

NameParts=Split(FullName," ")
This will give you an array with the parts of the name string split on spaces you can then check the number of elements and the values of each with less code that will be easier to read.