' Searchservice definieren
    Dim MySearchService As Service
    Set MySearchService = CATIA.GetSessionService("PLMSearch")

' PLMSearch instanziieren
    Dim MyPLMSearch 'As SearchService
    Set MyPLMSearch = MySearchService.Searches.Add

' Attribut(e) definieren und Suche starten
    MyPLMSearch.Type = "VPMReference"
    MyPLMSearch.AddAttributeCriteria "V_Name", MyFile
    MyPLMSearch.Search

' gefundene Eintraege der Suche erhalten
    Dim MyPLMEntities As PLMEntities
    Set MyPLMEntities = MyPLMSearch.EditedContent

' PLMOpen definieren und ersten Eintrag oeffnen
    Dim MyPLMOpenService As Service
    Set MyPLMOpenService = CATIA.GetSessionService("PLMOpenService")
    MyPLMOpenService.PLMOpen MyPLMEntities.Item(1), MyEditor