cad vba 二次开发统计管线图中含有B的块名

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
块名对照表：

雨水 BC077
污水 BC075
中水 ZSJ
上水 5321
电力 BC068
通讯 BC069

燃气 GC046
热力 gc047