Как создать набор из блоков.

Как создать набор из блоков с именами "*U*"...
Пока я только сделал вот так:
---
    Dim explodedObjects As Variant
   
    Dim blockObj As AcadBlock
    Dim blockRefObj As AcadBlockReference
    Dim explodedObjects As Variant
    For K = 3 To ThisDrawing.Blocks.Count - 1
        ThisDrawing.Blocks.Item(K).Explodable = True
        If Left(ThisDrawing.Blocks.Item(K).Name, 2) = "*U" Then
        blockRefObj = ThisDrawing.Blocks.Item(K).Explode
        explodedObjects = blockRefObj.Explode
        End If
    Next K
---