Public Sub ListBlocks()
Dim objBlock As AcadBlock
Dim strBlockList As String
Dim B As String
strBlockList = "List of blocks: "
For Each objBlock In ThisDrawing.Blocks
If objBlock.Name Like "B*" Then
strBlockList = strBlockList & vbCr & objBlock.Name
End If
Next
MsgBox strBlockList
End Sub