简单的BlockCounter不起作用。。

Option Explicit
Dim blockZ As AcadBlock  'ThisDrawing.Blocks..
Dim getBlock As AcadEntity  'Select a block to count..
Dim no_of_blocksX As Integer  'Number of blocks (selected)..
Dim allBlocks As Integer  'Number of block (in entire drawing)..
Dim basex As Variant  'Pick point for block selection..
Dim Lblockname As String, Lblockname2 As String  'Left character in the blockname (to filter out unwanted blocks from the list)..
Dim checkname As Integer  'Compares actual block names with combobox block names..
Dim SSet As AcadSelectionSet  'Selection set for blocks..
Dim blockname As String  'Name of block picked..
Dim response As Integer 'Yes / No..
' Update the block count each time the combobox text is changed..
Private Sub BlockNameCMBO_Change()
For Each SSet In ThisDrawing.SelectionSets
    If SSet.Name = "GetBlocks" Then
        SSet.Delete
    End If
Next SSet
blockname = BlockNameCMBO.Text
Dim FilterType(0 To 1) As Integer  'Selection Set - Filter type..
Dim FilterData(0 To 1) As Variant  'Selection Set - Filter data..
' Create a selection set..
Set SSet = ThisDrawing.SelectionSets.Add("GetBlocks")
FilterType(0) = 0: FilterData(0) = "INSERT"
FilterType(1) = 2: FilterData(1) = blockname
SSet.Select acSelectionSetAll, , , FilterType, FilterData
no_of_blocksX = SSet.Count
lblTotal.Caption = no_of_blocksX
End Sub
' Select a block..
Private Sub PickBlockBTN_Click()
blockcountform.Hide
On Error Resume Next
TryAgain:
ThisDrawing.Utility.GetEntity getBlock, basex, vbCr & "Select a block to count.. "
ErrHndlr:
    If Err.Number  0 Then
        Err.Clear
        GoTo TryAgain
    End If
    On Error GoTo ErrHndlr
    
BlockNameCMBO.Text = getBlock.Name  'Show the selected block name in the combobox..
blockcountform.Show
End Sub
'********************************************
'*************** FORM LOAD ****************
'********************************************
Private Sub UserForm_Initialize()
For Each blockZ In ThisDrawing.Blocks
    Lblockname = Left(blockZ.Name, 1): Lblockname2 = Left(blockZ.Name, 2)
        If Lblockname  "_" And Lblockname  "*" And Lblockname2  "A$" Then
            With BlockNameCMBO
            .AddItem (blockZ.Name)
        End With
    End If
Next
End Sub
'********************************************
'*************** FORM LOAD ****************
'********************************************
'********************************************
'*************** FORM UNLOAD ****************
'********************************************
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
response = MsgBox("Are you sure you've finished with the 'Block Counter program?..", vbQuestion + vbYesNo, "End the Program..")
    If response = vbNo Then
    Cancel = 1
    End If
    If response = vbYes Then
        Unload Me
    End If
End Sub
'********************************************
'************* END FORM UNLOAD **************
'********************************************