Extraer Apellidos Compuestos al 99%

 Extraer apellidos compuestos, si alguien lo mejora me avisa y si le sirve puedo ayudarlos en muchas cosas mas, saludos, si les falla en algo me avisan al correo alcideszuasnabar@hotmail.com

CLEAR
lcnom='' && Nombre
lccom='' && Apellidos Compuestos 
lc = "DE LA CRUZ DE LOS SANTOS PEREZ LUZ EVA"
*lc = "DEL SOLAR VILLANEVA POL MANUEL"
*lc = "LA TORRE VILLANEVA VICTOR MANUEL"
FOR ln=1 TO ALINES(la, lc,1," ")
  IF LEN(ALLTRIM(la(ln))) <= IIF(GetWordCount(ALLTRIM(lc))=ln OR ;
    GetWordCount(ALLTRIM(lc))-1=ln,1,IIF(LEN(ALLTRIM(la(ln)))=2,2,3)) 
    IF LEN(ALLTRIM(la(ln+IIF(ln>2,-1,0))))>=4
      lcnom=''
    ENDIF     
    lcnom=lcnom+' '+la(ln)
    lccom=lcnom
  ELSE
    lcnom= lccom+' '+la(ln)
    lccom=''
    ? lcnom
  ENDIF
ENDFOR