这个班有什么问题？？？

Option Explicit
Public TagString As String
Public Value As String
Public Handle As String
'Simple enough?

  For Each objTarget In objPSpace
    If objTarget.ObjectName = "AcDbBlockReference" Then
    If (objTarget.Name = InsertName) And (objTarget.HasAttributes = True) Then
        
        Dim Atts As Variant
        Atts = objTarget.GetAttributes
        Dim i As Integer
        For i = LBound(Atts) To UBound(Atts)
          Set ThisAtt = Atts(i)
          attThis.TagString = ThisAtt.TagString
          attThis.Value = ThisAtt.TextString
          attThis.Handle = ThisAtt.Handle
          Attribs.Add attThis '<<<<<<<<<<<<<<<---------------------<<<  This is where I'm having the problem
        Next i
        GetAttributeInfo.PathName = PathName
        GetAttributeInfo.Attribs = Attribs
        Exit Function
        End If
    End If
  Next objTarget

Option Explicit
Private Atts As collection
Private Sub Class_Initialize()
  Set Atts = New collection
End Sub
Private Sub Class_Terminate()
  Set Atts = Nothing
End Sub
...
Public Sub Add(AttNew As AttInf)
  Dim i As Integer
  For i = 1 To Atts.Count
    If Atts.Item(i).TagString = AttNew.TagString And Atts.Item(i).Handle = AttNew.Handle Then
    Atts.Item(i).Value = AttNew.Value
    Else
    Atts.Add AttNew
    Exit Sub
    End If
  Next i
  Atts.Add AttNew
End Sub

    If objOldBlk.HasAttributes Then
              varOldAtt = objOldBlk.GetAttributes     'get old block attributes
            End If
            For intOldCnt = LBound(varOldAtt) To UBound(varOldAtt)
              Set objOldAttRef = varOldAtt(intOldCnt)
            Next intOldCnt
…...................................
   Set objNewBlk = ThisDrawing.ModelSpace.InsertBlock(InsertPt, NewBlkName, xScale, yScale, zScale, Rot) 'insert new tblock
      
   varNewAtt = objNewBlk.GetAttributes 'get attributes
   For intOldCnt = LBound(varOldAtt) To UBound(varOldAtt)
       For intNewCnt = LBound(varNewAtt) To UBound(varNewAtt)
            If varNewAtt(intNewCnt).TagString = varOldAtt(intOldCnt).TagString Then
                varNewAtt(intNewCnt).TextString = varOldAtt(intOldCnt).TextString
            End If
      Next
   Next