'我这个办法是个另类方法,采用的是错误检查
Private Sub Command1_Click()
 On Error Resume Next    '出现错误接着执行
 Dim newColl As New Collection
 dim i as long 
 newColl.Add 1, "1"   '先增加一个 1的项目
 
 For i = 1 To 10
   newColl.Add i, CStr(i)  '不管,一直增加 注意 我用 Key 因为集合里面.他的Key是唯一的
   If Err Then    '如果增加的时候,已有增加过,一定会产生错误
    'A1里面有重复项目
     Err.Clear  
   End If
 Next

 Dim D
 For Each D In newColl
    MsgBox D    '读出,发现只有10项.不会多一项.
 Next

End Sub