¿Generar Archivo Texto con final de linea?

Hola. Gracias por tu ayuda que realmente me ha servido de mucho !
¿Deseo consultarte lo siguiente en esta función yo exporto de un recordset los registros a un archivo texto delimitado por # para que sea importado por un sistema bancario pero tengo el problema que cuando lo genero la función lo hace en una sola linea todos los registros y no reconoce el final de registro para darle enter y seguir en la siguiente linea y así sucesivamente con todos los registros... Me podrías ayudar?
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.Write rsADO.GetString(, 300, "#", vbLf, "") & Chr(13) + Chr(10)  <----- no lo hace
Loop
ts.Close
ejemplo:
error
#SV#EFT#20080702##1A-199##1125.40##2##Pago3##SV#EFT#20080702###2D-05##66.99##3#Pago3###
debe de ser correcto:
#SV#EFT#20080702##1A-199##1125.40##2##Pago3##
#SV#EFT#20080702###2D-05##66.99##3#Pago3##
Gracias por tu ayuda