Access VBA コードモジュールのプロシージャ一覧を取得する

すべてのプロシージャ名を取得する例 officetanaka
このExcelをAccessに変えたものです

 Sub AccexportFunction()
Dim buf As String, ProcNames As String, i As Long
Dim VBCs As VBComponents, VBC As VBComponent
Set VBCs = Application.VBE.ActiveVBProject.VBComponents
With VBCs("Module/Class").CodeModule '<<<標準モジュールやClassの名前を入れます。
        For i = 1 To .CountOfLines
            If buf <> .ProcOfLine(i, 0) Then
                buf = .ProcOfLine(i, 0)
                ProcNames = ProcNames & buf & vbCrLf
            End If
        Next i
End With
Debug.Print ProcNames
End Sub