itereren door blocken

[Dnereb]

Ik ben een functie SplatZ aan het schrijven in VBA omdat ik vanuit een export vanuit S-cad tekeningen krijg aangheleverd waarbij sommige objecten op z waarde -834767587 of 834767587 (ge-snapt op de limieten van de s-cad tekening)
mijn probleem is nu het itereren door een block om alle elementen in het block een z-waarde van 0 te geven.
oftewel hoe krijg ik alle elementen uit het block of de blockreferentie in een selectionset

Bij voorbaat dank