Sub fireman()
 Dim Was(0)
  Was(0) = "Line"
  Dim aktivdok As PartDocument
  Set aktivdok = CATIA.ActiveDocument
  Dim aPart As part
  Set aPart = aktivdok.part
  Dim selection1 As selection
  Set selection1 = aktivdok.selection
  Do
    Dim Benauswahl 'As selection
    Set Benauswahl = aktivdok.selection
    Benauswahl.Clear
    '---interaktive Benutzerauswahl starten
    Dim Auswahl 'As CATBStr
    Auswahl = Benauswahl.SelectElement2(Was, "Linie wählen!", False)
    '---hier möchte ich das Object aus der Benutzerauswahl als Referenz deklarieren und anschliessend löschen
    'Dim ref6 'As Reference
    'selection1.Item (1)
    'Set Ref6 = aktivdok.CreateReferenceFromObject(Auswahl)
    Dim ref6 As Object
    Set ref6 = selection1.Item(1).Value
    selection1.Clear:        selection1.Add ref6:   selection1.Delete
    aPart.Update
    '---Abfrage, ob der Löschvorgang beendet ist
    Dim idia2
    idia2 = MsgBox("weitere Linie löschen?", 4, "Auswahldialog")
  Loop Until (idia2 = 7)

End Sub