Sub Main()
  Dim oDoc As AssemblyDocument
  oDoc = ThisApplication.ActiveDocument
  
  Dim oPane As BrowserPane
  oPane = oDoc.BrowserPanes("Model")
  
  Dim oTopNode As BrowserNode
  oTopNode = oPane.TopNode
  
  Dim oFolder As BrowserFolder
  oFolder = oTopNode.BrowserFolders.Item("MyFolder")
  
  Call FindAndSuppressComponent(oFolder, "Component1")
End Sub

Sub FindAndSuppressComponent(oFolder As BrowserFolder, componentName As String)
  Dim oItem As BrowserNode
  For Each oItem In oFolder.BrowserNode.BrowserNodes
    Dim oObj As Object
    oObj = oItem.NativeObject
    
    If TypeOf oObj Is BrowserFolder Then
      ' Rekursiver Aufruf, um in Unterordnern zu suchen
      Call FindAndSuppressComponent(oObj, componentName)
    ElseIf TypeOf oObj Is ComponentOccurrence Then
      Dim oOcc As ComponentOccurrence
      oOcc = oObj
      
      If oOcc.Name = componentName Then
        ' Führen Sie die gewünschte Manipulation durch
        ' Zum Beispiel: Anzeigen einer Nachricht
        MsgBox "Komponente 'Component1' gefunden!"
        
        ' Unterdrücke die Komponente
        If Not oOcc.Suppressed Then Call oOcc.Suppress
      End If
    End If
  Next
End Sub