Fence lento en VBA (Microstation v8i)

Alguien conoce alguna alternativa mas rápida a usar Fence en VBA ?? es que va realmente lento ... u otro camino de usar la fence pero mas rápido ??

Actualmente estoy trabajando con la fence de este modo :

Set oCircle = CreateEllipseElement2(Nothing, startPointLoop, radius, radius, oMatrix, msdFillModeNotFilled)

With ActiveSettings
.FenceVoid = False
.FenceClip = False
.FenceOverlap = True
End With
Set oFence = ActiveDesignFile.Fence
oFence.DefineFromElement View1, oCircle
Dim oFenceContents As ElementEnumerator
Set oFenceContents = oFence.GetContents
Do While oFenceContents.MoveNext

' Here we work with any element of the fence

loop

Gracias por la ayuda !!