Export from Excel to .txt files

Hi,

I am trying to automate the population of .txt files which I use to import into my application.  I thought that I would create an Excel spreadsheet with my data, and then use a Macro to create the .txt files.

By using the following Macro I have been able to get as far as generating the .txt files;

Sub WriteTotxt()

Const forReading = 1, forAppending = 3, fsoForWriting = 2
Dim fs, objTextStream, sText As String
Dim lLastRow As Long, lRowLoop As Long, lLastCol As Long, lColLoop As Long

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

For lRowLoop = 1 To lLastRow

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = fs.opentextfile("D:\Datat\" & Cells(lRowLoop, 1) & ".txt", fsoForWriting, True)

    sText = ""

    For lColLoop = 1 To 7
        sText = sText & Cells(lRowLoop, lColLoop) & Chr(10) & Chr(10)
    Next lColLoop

    objTextStream.writeline (Left(sText, Len(sText) - 1))


    objTextStream.Close
    Set objTextStream = Nothing
    Set fs = Nothing

Next lRowLoop

End Sub

What I need to do now is to format the .txt files so that the data is split across multiple lines (at the moment, I just get one line containing all the data).

So, I guess my question is - how do I put in a carriage return so that my data is displayed in the .txt files across multiple lines?

Thanks,

Steve