Código para delimitar texto de informa access 2003

A ver si consigo explicarme bien.
Para empezar, en lugar de correcciones, te envío al final de esta respuesta el código completo.
Está probado con una base de datos de prueba y no creo que deba fallarte. Si tienes problemas con él, mándame una copia de la base de datos con unos pocos registros (y comprimida) a mi correo electrónico [email protected]
Un saludo
Option Compare Database
Option Explicit
Private Sub Report_Close()
    Dim resp As Integer
    Dim qd As QueryDef
    ' Preguntamos si se quiere exportar los datos del informe
resp = MsgBox("¿Desea exportar los datos del informe?", vbQuestion + vbYesNo)
    If resp = vbNo Then Exit Sub    ' No quiere. ADIOS
    ' Si viene por aquí es que SI quiere exportarlos. Definimos las variables
    Dim rs As Recordset ' Para ir leyendo los registros del informe
    Dim nf As Integer   ' Número del archivo en el que vamos a escribir
    Dim nombreSalida As String  ' Nombre del fichero de salida que vamos a crear
    Dim linea As String ' Línea que vamos a escribir
    Dim i As Integer    ' Para contar los campos del registro
    Dim txtSQL As String    ' Para copiar el origen de registros del informe
    ' Generamos el nombre que va a tener el fichero de salida
nombreSalida = CurrentDb(). Name
    Do While Right$(nombreSalida, 1) <> "\"
        nombreSalida = Left$(nombreSalida, Len(nombreSalida) - 1)
    Loop
    ' Ahora nombreSalida contiene el nombre de la carpeta en la que está
' nuestra base de datos.
    ' Añadimos el nombre de salida
    nombreSalida = nombreSalida & "ficheroSalida.txt"
    ' Abrimos el fichero para escribir en él
    Close ' Por si hubiera algún fichero abierto
nf = FreeFile
    Open nombreSalida For Output As nf
    ' Para leer los datos de los registros que se están presentando en el formulario
    ' Crearemos una consulta con la misma selección que el informe
    On Error Resume Next
    DoCmd.RunSQL "drop table tmpQueryInforme"
    On Error GoTo 0
    txtSQL = Me.RecordSource
    If InStr(UCase$(txtSQL), "SELECT ") = 0 Then txtSQL = "select * from " & txtSQL
    Set qd = CurrentDb().CreateQueryDef("tmpQueryInforme", txtSQL)
    qd.Close
    ' La selección ahora la hacemos de la consulta
    txtSQL = "select * from tmpQueryInforme"
    If Me.Filter <> "" Then txtSQL = txtSQL & " where " & Me.Filter
    Set rs = CurrentDb().OpenRecordset(txtSQL, dbOpenDynaset)
    ' Escribiremos una línea con los nombres de los campos (quitar si se quiere)
    linea = ""
    For i = 0 To rs.Fields.Count - 1
        If linea <> "" Then linea = linea & "|"
        linea = linea & rs.Fields(i).Name
    Next i
    Print #nf, linea
    ' Ahora recorreremos todo el recordset escribiendo sus datos
    If Not rs.EOF Then rs.MoveLast: rs.MoveFirst
    SysCmd acSysCmdInitMeter, "Exportando datos del informe", rs.RecordCount
    Do While Not rs.EOF
        SysCmd acSysCmdUpdateMeter, rs.AbsolutePosition + 1
        DoEvents
        linea = ""
        For i = 0 To rs.Fields.Count - 1
            If linea <> "" Then linea = linea & "|"
            Select Case rs.Fields(i).Type
                Case dbDate: linea = linea & fechaATexto(rs.Fields(i).Value)
                Case dbBoolean: linea = linea & booleanATexto(rs.Fields(i).Value)
                Case dbInteger, dbLong, dbDouble, dbSingle, dbDecimal, _
                     dbNumeric: linea = linea & numeroATexto(rs.Fields(i).Value)
                Case Else: linea = linea & Nz(rs.Fields(i).Value)
            End Select
        Next i
        Print #nf, linea
        rs.MoveNext
    Loop
    rs.Close
    Close nf
    SysCmd acSysCmdClearStatus
    On Error Resume Next
    DoCmd.RunSQL "drop table tmpQueryInforme"
    On Error GoTo 0
    MsgBox "Fichero de salida creado"
End Sub
Function numeroATexto(ByVal valNum As Variant) As String
    numeroATexto = ""
    If IsNull(valNum) Then Exit Function        ' No viene dato
    If Not IsNumeric(valNum) Then Exit Function ' Error: no es un número
    ' Str$ utiliza el punto como separador decimal
    ' Si se quiere usar la coma de separación de decimal usar la
' función format$ en lugar de Str$
    numeroATexto = Trim$(Str$(valNum))
End Function
Function fechaATexto(ByVal valFec As Variant) As String
    fechaATexto = ""
    If IsNull(valFec) Then Exit Function        ' No viene dato
    If Not IsDate(valFec) Then Exit Function ' Error: no es un número
    fechaATexto = Format$(valFec, "yyyymmdd")   ' O el formato que pidan
End Function
Function booleanATexto(ByVal valBol As Integer) As String
    ' Devuelve S si es verdadero o N si es falso (poner los valores que se quiera)
    If valBol Then booleanATexto = "S" Else booleanATexto = "N"
End Function