Public Function AllProcs()
'Public Function AllProcs(ByVal strModuleName As String)
    'Dim mdl As Module
    Dim strModuleName
    Dim oVBComponent As Object
    Dim mdl As Object
    Dim lngCount As Long
    Dim lngCountDecl As Long
    Dim lngI As Long
    Dim strProcName As String
    'Dim astrProcNames() As String
    Dim colProcNames As Collection
    Dim intI As Integer
    Dim strMsg As String
    Dim lngR As Long
    Dim varItem
    ' Open specified Module object.
    'DoCmd.OpenModule strModuleName
    
    ' Return reference to Module object.
    'Set mdl = Modules(strModuleName)
    Set colProcNames = New Collection
    For Each oVBComponent In Application.VBE.ActiveVBProject.VBComponents
        Set mdl = oVBComponent.CodeModule
        strModuleName = mdl.Name
        ' Count lines in module.
        lngCount = mdl.CountOfLines
        
        ' Count lines in Declaration section in module.
        lngCountDecl = mdl.CountOfDeclarationLines
        
        ' Determine name of first procedure.
        strProcName = mdl.ProcOfLine(lngCountDecl +  1 , lngR)
        
        ' Initialize counter variable.
        intI =  0 
        
        ' Redimension array.
        'ReDim Preserve astrProcNames(intI)
        
        ' Store name of first procedure in array.
        'astrProcNames(intI) = strProcName
        colProcNames.Add mdl.Name & "." & strProcName
        ' Determine procedure name for each line after declarations.
        For lngI = lngCountDecl +  1  To lngCount
            ' Compare procedure name with ProcOfLine property value.
            If strProcName <> mdl.ProcOfLine(lngI, lngR) Then
                ' Increment counter.
                'intI = intI + 1
                strProcName = mdl.ProcOfLine(lngI, lngR)
                'ReDim Preserve astrProcNames(intI)
                ' Assign unique procedure names to array.
                'astrProcNames(intI) = strProcName
                colProcNames.Add mdl.Name & "." & strProcName
                
            End If
        Next lngI
    Next
    
'    strMsg = "Procedures in module '" & strModuleName & "': " & vbCrLf & vbCrLf
'    For intI = 0 To UBound(astrProcNames)
'        strMsg = strMsg & astrProcNames(intI) & vbCrLf
'    Next intI
    
    ' Message box listing all procedures in module.
    'MsgBox strMsg
    For Each varItem In colProcNames
        Debug.Print varItem
    Next
End Function