Как получить доступ к свойствам дин. блока в VBA

Public Sub ChangeDynProps()
' not tested
' tested on A2009 only
     Dim ss As AcadSelectionSet
     Dim ent As AcadEntity
     Dim bname As String
   Dim props() As AcadDynamicBlockReferenceProperty
     Dim pvalue As Variant
     Dim blkref As AcadBlockReference
     Dim n As Long
     
     
     With ThisDrawing.SelectionSets
          While .Count > 0
               .Item(0).Delete
          Wend
          Set ss = .Add("$DynBlocks$")
     End With

     Dim ftype(0) As Integer
     Dim fdata(0) As Variant

     ftype(0) = 0
     fdata(0) = "INSERT"
     ss.SelectOnScreen ftype, fdata
     
  If ss.Count = 0 Then
  MsgBox "No blocks selected...Exit"
  Exit Sub
  End If
  
For n = 0 To ss.Count - 1
  Set blkref = ss.Item(n)
  If blkref.IsDynamicBlock Then

  Dim i As Integer
  props = blkref.GetDynamicBlockProperties
 
  Dim prop As AcadDynamicBlockReferenceProperty
  ReDim propArray(UBound(props), 1)
  
For i = LBound(props) To UBound(props)
Set prop = props(i)
If prop.PropertyName = "Wall Height distance" Then '<--- Change a property name here
prop.Value = 300#   '<--- Change a property value here
Exit For
End If

Next i

End If

Next n

End Sub

~'J'~