Function Emilio(Fichero As String)
'Fichero, Emilio, es el Path completo, mas nombre del fichero sin formatear.
'Es decir el que quieres tratar previamente
'El argmento de la funcion debe ser del tipo:
'Fichero= C:\Micarpeta\mascarpeta\ficheroatratar.txt
On Error GoTo Err_CmdInicia_Click
  Dim CanalLibre1, CanalLibre2, LaLinea As String
  Dim ArchivoDestino As String

    ArchivoDestino = CurrentProject.Path & "\ArchivoBueno.txt"
    If Dir(ArchivoDestino) <> "" Then
        If vbYes = MsgBox("Ya existe el archivo de clientes, ¿Eliminar el existente?", vbYesNo + vbExclamation) Then Kill ArchivoDestino
    End If
    CanalLibre1 = FreeFile
    Open ArchivoDestino For Output As #CanalLibre1
    DoEvents
    CanalLibre2 = FreeFile
    Open Fichero For Input As #CanalLibre2
     Do While Not EOF(CanalLibre2)
      DoEvents
      Line Input #CanalLibre2, LaLinea
      'como desconocemos la longitud de los primeros digitos, que se supone
      'que son la cuenta de tu cliente, pues lo hacemos aproximado
      '15485214454821554211545452001
      If Len(Trim(LaLinea)) > 26 Then  'este tiene cuenta cliente en sus primeros aproximados 8 digitos
       Print #CanalLibre1, LaLinea
      End If
     Loop
     
     Close #CanalLibre2
     Close #CanalLibre1
     MsgBox "Tamaño del archivo Clientes: " + Format(FileLen(ArchivoDestino) / 1024, "##0.00 Kb")

Exit_CmdInicia_Click:
    Exit Function

Err_CmdInicia_Click:
    MsgBox Err.Description
    Resume Exit_CmdInicia_Click
    

End Function




Function probamoscodigo()
 Emilio CurrentProject.Path & "\emilio.txt"
End Function

http://www.connectionstrings.com/