Use the block reference's name to find the block definition, then loop the entities on block definition's default collection. Given oBlkRef as your block reference Dim oBlk As AcadBlock set oBlk = ThisDrawing.Blocks.Item(oBlkRef.Name) Dim oEnt As AcadEntity For Each oEnt In oBlk ' Do your checks here Next Does this answer your question?