Generar Archivo TXT con final de linea

Hola.
Deseo consultarte algo se me ha pedido generar un archivo txt delimitado por # y que al final de cada linea de registro generado y escrito en el archivo de un enter y continué con el siguiente registro y así sucesivamente los registros los tomo de un datarecordset el problema es que cuando los escribo la función los escribe todos en una sola linea. La función que utilizo es la siguiente .
Dim strFileName As String
strFileName = cdlSaveAs.FileName
Dim rsOut
Dim fs, ts
Dim i As Long, strLine As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.CreateTextFile(strFileName, True)
For i = 0 To rsADO.Fields.Count - 1
strLine = strLine & rsADO.Fields(i).Name & "#" & Chr(13)
Next
strLine = Left(strLine, Len(strLine) - 1)
'' ts.WriteLine strLine
rsADO.MoveFirst
Do Until rsADO.EOF
ts.WriteLine rsADO.GetString(, 300, "#", vbLf, "") & Chr(13) + Chr(10) <--- no lo hace
Loop
ts.Close
Espero puedas ayudarme o si tienes otra función yo puedo adaptarla gracias...