Es un poco de código para traspasar rutinas a
ficheros de texto. En los argumentos le has de pasar el nombre del módulo y
después el/los nombre/s de la/s rutina/s que quieras traspasar al fichero de
texto, por ejemplo

    CodigoATexto "módulo1", "rutina1","rutina2","rutina3" (etc)

Sub CodigoATexto(nomModulo As String, ParamArray nomRutina())
Dim mdl As Module
Dim inicio As Integer
Dim totalLineas As Integer
Dim textoRutina As String
Dim i As Integer

    DoCmd.OpenModule nomModulo
    Set mdl = Modules(nomModulo)

    For i = LBound(nomRutina) To UBound(nomRutina)
        inicio = mdl.ProcStartLine(nomRutina(i), 0) ' vbext_pk_Proc
        totalLineas = mdl.ProcCountLines(nomRutina(i), 0)

        textoRutina = textoRutina & vbCrLf & vbCrLf & _
            mdl.Lines(inicio, totalLineas)
    Next

    Open nomRutina(0) & ".txt" For Output As #1
    Print #1, textoRutina
    Close #1

    Set mdl = Nothing
    DoCmd.Close acModule, nomModulo

End Sub