Löschen mit Selektion:

MySelection.Clear
MySelection.Add MyElement
MySelection.Delete

Löschen mit DeleteObjectForDatum:

Set Ref = MyPart.CreateReferenceFromObject(MyElement)
MyHybShapeFactory.DeleteObjectForDatum MyElement