>Sergey,
>Great! I've tried the code and it works!Thanks!
Be aware that if user presses Enter after the last typed line than you'll get an empty string because Enter indicates the beggining of the new line. You can use ALINES() function to avoid this.

DIMENSION laLines[1]
lnLines = Alines(laLines, This.Value )
lcLine = laLines[lnLines]

It's also not affected by the SET MEMOWIDTH setting.