adding 3d solids to a newly created block

[DSCHNELL289]

I'm making a little VBA program that creates a pair of extruded cylinders, with the ability to repeat over a given distance, (piles for a pipe rack) but I need to save 7 attributes for each pair of piles.

My question is:
after creating the 3D solid, how do I include them into a new block (on the fly), then add the attributes (invisible) to the block, and then duplicate this block with updated attributes each time.

Hope this makes sense.
Here is a sample of the code I'm using to create the solid.

Dim shapes(0) As AcadEntity
Dim pileREGION As Variant
Dim pile3d2 As Acad3DSolid

Set shapes(0) = ThisDrawing.ModelSpace.AddCircle(pointB, pileRAD)
pileREGION = ThisDrawing.ModelSpace.AddRegion(shapes)
Set pile3d2 = ThisDrawing.ModelSpace.AddExtrudedSolid(pileREGION(0), VisPile, 0)
shapes(0).Delete
pileREGION(0).Delete
pile3d2.Layer = "STEEL"