Sub SampleCode_42()
'プロシージャの変数の宣言行をリストアップする

  Dim vbcmp As Object
  Dim intRow As Integer
  Dim strCode As String

  'VBEのすべてのモジュールのループ
  For Each vbcmp In VBE.ActiveVBProject.VBComponents
    With vbcmp
      'Declarationsセクションより下のすべてのコードを取り出すループ
      For intRow = .CodeModule.CountOfDeclarationLines + 1 To .CodeModule.CountOfLines
        strCode = .CodeModule.Lines(intRow, 1)
        If LTrim(strCode) Like "Dim*" Then
          'コードがDimで始まっていたらイミディエイトウィンドウに出力
          Debug.Print .Name & "(" & intRow & "): " & strCode
        End If
      Next intRow
    End With
  Next vbcmp

End Sub