>lnStart = Thisform.Edit1.SelStart >lcCrLf = CHR(13) + CHR(10) > >lnOccurence = OCCURS(lcCrLf, LEFT(Thisform.Edit1.Text, lnStart)) > >ALINES(laLines, Thisform.Edit1.Text) >lcCommand = laLines[lnOccurence + 1] > >