Dan the handle didn't always work.
Search this site for the function vbassoc then run below
Sub thesilenceofthedims()
Dim D As AcadDimension
Dim sBlock As String
Dim Ent As AcadEntity
Dim oBlock As AcadBlock
Dim Ents() As AcadEntity
Dim i As Integer, ct As Integer
Set D = EntSel
sBlock = vbAssoc(D, 2)
Set oBlock = ThisDrawing.Blocks(sBlock)
ct = oBlock.count - 1
ReDim Ents(ct)
For i = 0 To ct
Set Ents(i) = oBlock(i)
Next i
ThisDrawing.CopyObjects Ents, ThisDrawing.ModelSpace
D.Delete
oBlock.Delete
End Sub