function FormatMemo local lcStr, lnPos, lcResult lcStr=alltrim(MyMemo) && Assign to it your memo field lnPos=1 do while len(m.lcStr)>=20 && Use the number of chars you want in your line: lcStr=substr(lcStr,m.lnPos,20) lcResult=m.lcStr+chr(13) && Insert a blank line lnPos=m.lnPos+20 enddo return lcResultYou can make it more fancy, if you don't want to break words. In this case you can divide it by words first, using FoxTools Word and WordNum, then see, how many words you can put in one 20 char string...