Вывод информации о блоке

Public blocks As AcadBlocks
Public sBlock As AcadBlock

Private Sub UserForm_Initialize()
Dim i As Integer
Set blocks = ThisDrawing.blocks
blockCount = blocks.count
ReDim lArray(blockCount - 1)
For i = 0 To blockCount - 1
lArray(i) = blocks(i).Name
Next i
ComboBox1.List = lArray
End Sub

Private Sub ComboBox1_Change()
ListBox1.Clear
index = ComboBox1.ListIndex
Set sBlock = blocks(index)
ListBox1.AddItem ("Block name" + sBlock.Name)
End Sub

dim ent as AcadEntity
dim blRef as AcadBlockReference

For Each ent in ThisDrawing.ModelSpace
   If Type Of ent is AcadBlockReference Then
      set blRef = ent
      ListBox1.AddItem (blRef.Name + blRef.Layer) 
   End If 
Next

Dim ent As AcadEntity
Dim count As Integer
Dim index As Integer
Dim entColl() As AcadBlockReference

Private Sub ComboBox1_Change()
ListBox1.Clear
index = ComboBox1.ListIndex
ListBox1.AddItem ("Имя блока: " + entColl(index + 1).Name)
ListBox1.AddItem ("Слой: " + entColl(index + 1).Layer)
ListBox1.AddItem ("Координаты точки привязки:")
ListBox1.AddItem ("X: " & entColl(index + 1).insertionPoint(0))
ListBox1.AddItem ("Y: " & entColl(index + 1).insertionPoint(1))
ListBox1.AddItem ("Z: " & entColl(index + 1).insertionPoint(2))

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
i = 0
count = 0

For Each ent In ThisDrawing.ModelSpace
   If TypeOf ent Is AcadBlockReference Then
       count = count + 1
   End If
Next

ReDim entColl(count)

For Each ent In ThisDrawing.ModelSpace
   If TypeOf ent Is AcadBlockReference Then
     i = i + 1
    Set entColl(i) = ent
    ComboBox1.AddItem (entColl(i).Name)
   End If
Next

End Sub