aaa = ThisForm.edit1.Value
bbb1 = LEFT(aaa,thisform.edit1.SelStart)
ccc1 = SUBSTR(bbb1,RATC(CHR(13),bbb1)+1,LEN(bbb1)-RATC(CHR(13),bbb1)+1)
bbb2 = RIGHT(aaa,LEN(aaa)-thisform.edit1.SelStart)
IF ATC(CHR(13),bbb2) = 0
ccc2 = bbb2
ELSE
ccc2 = LEFT(bbb2,ATC(CHR(13),bbb2))
ENDIF
MESSAGEBOX(ccc1+ccc2)