courses in microsoft access - Listing Macro Contents with VBA

I have been able to find a function that claims to replicate the "Convert to VBA" Function and it is as follows:
DoCmd.SelectObject acMacro, strMacroName, True
DoCmd.RunCommand acCmdConvertMacrosToVisualBasic

However, it always seems to end up creating an empty module or give an error message. Having googled it I have found the below code that exports it to a txt fle that works but is a bit cumersome. Have you any ideas how I could replicate this so that it just populates an external module?

Public Function subConvertMacros2TextFile()

Dim db As Database
Dim cnt As Container
Dim doc As Document
Dim prp As Property
Dim mdl As Module
Dim intFileNum As Integer
Dim strMacroName As String
Dim strFileName As String
Dim strModuleName As String
Dim strModuleText As String

Set db = CurrentDb
Set cnt = db.Containers("scripts")

For Each doc In cnt.Documents
strMacroName = doc.Name
strFileName = "C:\" & strMacroName & ".TXT"
intFileNum = FreeFile
Open strFileName For Output As #intFileNum

' Print the accessible macro-properties in which we are not interested...
For Each prp In doc.Properties
Print #intFileNum, CStr(prp.Name) & vbTab & CStr(prp.Value)
Next prp

Print #intFileNum, vbCrLf & vbCrLf & "MODULE TEXT : " & vbCrLf & vbCrLf

DoCmd.SelectObject acMacro, strMacroName, True
' push keyboard commands into keyboard buffer
' these keystrokes are needed for two dialogboxes
' of the ConvertMacrosToVisualBasic wizzard
SendKeys "%e", False 'disable generating errorhandling
SendKeys "%c", False 'press Convert button
SendKeys "{ENTER}", False 'press OK button
DoCmd.RunCommand acCmdConvertMacrosToVisualBasic

' the wizzard adds "Converted Macro- " to the macroname
strModuleName = "Converted Macro- " & strMacroName
DoCmd.OpenModule strModuleName
Set mdl = Modules(strModuleName)
strModuleText = mdl.Lines(1, mdl.CountOfLines)
Print #intFileNum, strModuleText

DoCmd.Close acModule, strModuleName, acSaveNo
DoCmd.DeleteObject acModule, strModuleName
Close #intFileNum

Next doc

db.Close
End Function 'subConvertMacros2TextFile