For Each objVBProject As microsoft.Vbe.Interop.VBProject In _
  VBEInterop.VBProjects
    For Each objComponent As microsoft.Vbe.Interop.VBComponent In _
    objVBProject.VBComponents
 
        With objcomponent.CodeModule
            Dim lngStartZeile As Integer = .CountOfDeclarationLines + 1
            Do Until lngStartZeile >= .CountOfLines
                Dim lngProcTyp As microsoft.Vbe.Interop.vbext_ProcKind
                Dim strProcName As String = .ProcOfLine(lngStartZeile, _
                  lngproctyp)
 
                <- Hier tritt das Problem auf. Normalerweise gibt lngProctyp _
                  den Prozedurtyp "vbext_ProcKind" zurück mit dem man dann im _
                  weiteren Codeverlauf arbeiten kann, aber unter .net bekomme _
                  ich als Wert immer 0 zurückgeliefert. Was läuft hier _
                  verkehrt?->
                Der gleiche Code funktioniert in VBA einwandfrei.
 
                Dim lngBodyLine As Integer = .ProcBodyLine(strProcName, _
                  lngproctyp)
                Dim lngProcCountLines As Integer = .ProcCountLines(strProcName, _
                lngProcTyp)
                lngStartZeile = lngStartZeile + lngProcCountLines
            Loop
        End With
    Next
Next