[v8i vba] Delete multiple elements

Hi,

Is there a faster way to delete elements than:

cLines = UBound(oldElements)
For iLines = 0 To cLines
    ActiveModelReference.RemoveElement oldElements(iLines)
Next iLines

With 8086 elements it takes forever..

Thanks,
/T