Sub SampleCode_41()
'Declarationsセクションの変数の宣言行をリストアップする

  Dim vbcmp As Object
  Dim intRow As Integer
  Dim strCode As String
  Dim avarSearch As Variant
  Dim iintLoop As Integer

  '変数の宣言行と判定する先頭文字列の配列を設定
  avarSearch = Array("Dim", "Public", "Private")

  'VBEのすべてのモジュールのループ
  For Each vbcmp In VBE.ActiveVBProject.VBComponents
    With vbcmp
      'Declarationsセクション内のすべてのコードを取り出すループ
      For intRow = 1 To .CodeModule.CountOfDeclarationLines
        strCode = .CodeModule.Lines(intRow, 1)
        '１行のコード内から変数の宣言行かどうか判定するループ（配列を１つずつチェック）
        For iintLoop = 0 To UBound(avarSearch)
          If LTrim(strCode) Like avarSearch(iintLoop) & "*" Then
            'コードが所定の先頭文字列で始まっていたらイミディエイトウィンドウに出力
            Debug.Print .Name & "(" & intRow & "): " & strCode
            'それ以上は配列の確認はせずに次の行へ
            Exit For
          End If
        Next iintLoop
      Next intRow
    End With
  Next vbcmp

End Sub