Sub extraerTextoFuncion(nomModulo As String, nomRutina As String)
Dim mdl As Module
Dim inicio As Integer
Dim totalLineas As Integer
Dim textoRutina As String

    DoCmd.OpenModule nomModulo
    Set mdl = Modules(nomModulo)

    inicio = mdl.ProcStartLine(nomRutina, 0) ' vbext_pk_Proc
    totalLineas = mdl.ProcCountLines(nomRutina, 0) ' vbext_pk_Proc

    textoRutina = mdl.Lines(inicio, totalLineas)

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

    Set mdl = Nothing
    DoCmd.Close acModule, nomModulo

End Sub