请高手指导vba的cad标题栏信息提取问题!!!

Dim ssetObj As AcadSelectionSet
Dim J As Integer
    Set ssetObj = ThisDrawing.SelectionSets.Add("BTLSET")
    Dim mode As Integer
    mode = acSelectionSetAll
    Dim FilterType As Variant, FilterData As Variant
    Dim FilType(0) As Integer
    Dim FilData(0) As Variant
    FilType(0) = 2
    FilData(0) = "B-BTL"
    FilterType = FilType
    FilterData = FilData
    ssetObj.Select mode, , , FilterType, FilterData
    Dim ssetCount As Integer
    Dim entObj As AcadBlockReference
    If ssetObj.Count = 0 Then
        DimTolMat = False
    Else
        Set entObj = ssetObj.Item(0)
        Dim attvars As Variant
        Dim clString As String
        attvars = entObj.GetAttributes
        For J = 0 To UBound(attvars)
            If StrComp(attvars(J).TagString, "clbj", 1) = 0 Then
                clString = attvars(J).TextString
                Exit For
            End If
        Next
     End If