'build string to load into text file strmsg = lab & vbTab & recname & vbCrLf & vbNewLine & strbuild Open "C:my documentsmyfile.txt" For Output As #1 Print #1, strmsg Close #1 'convert it to a word document 'pass it the name of the text file and the filename you want it saved as Call WordDoc("C:my documentsmyfile.txt", "C:my documentsNewDoc.doc") End Sub