FOR I := 35 TO 1 STEP -1 IF SUBSTR(_ccCadena1,I,1) = " " Column Title "Nombre" Data SubStr(aDatDetalle[nRegis,3],1,I) SIZE 35 FONT 2 _ccCadena2 := SubStr(aDatDetalle[nRegis,3],I+1) EXIT ENDIF NEXT It is much easier to use MLCount() and MemoLine() nLines := MLCount( cText, nLen )...