#define CRLF CHR(13)+CHR(10) myFile = "MyAddList.TXT" FOR nCnt = 1 TO ThisForm.lstListBox1.ListCount IF ThisForm.lstListBox1.Selected(nCnt) && Is item selected? STRTOFILE(ThisForm.lstListBox1.List(nCnt)+CRLF, MyFile, (nCnt # 1)) ENDIF ENDFORor You can concatenate the string & writå it to file after FOR ... ENDFOR loop