bien, nada mas que ahi lo estas limitando a un solo apellido, y no estamos tomando en cuenta que COBOS si se toma en cuenta solo debes eliminar DE LA, DE LOS
algo asi:
dim sCompuestos () as string
sCompuestos=array("DE"," LOS "," LAS ", " LA ") 'agregas cuantos mas conozcas tu
for i=0 to...