kittenchen其实网上有一篇写的很好了，标题叫【VB之Collection---Collection集合类"】，有兴趣的自己去搜索一下
我只是举个例子，说白话的举例，这个例子叫【人生无常，大肠包小肠】
就是大Collection包小Collection
话不多说，直接上代码
Option Explicit
'定义全局大集合，方便在各个子函数内使用
Dim BigCollection As New Collection
'这里随便用了一个按钮来试了
Private Sub Command1_Click()
On Error Resume Next
'定义一个小集合，准备给大肠包
Dim SmallCollection As New Collection
'往小集合里添加测试数据，实际中你们自己去加
SmallCollection.Add "1", "2"
SmallCollection.Add "3", "4"
'把小集合当作一个项加入大集合，并给取个名字，叫lily吧
BigCollection.Add SmallCollection, "lily"
'测试一下
'这个调用看的明白吗，如果往里再加其它集合如luck之类的，一样的
Debug.Print BigCollection.Item("lily").Item("2")
Debug.Print BigCollection.Item("lily").Item("4")
'输出的结果就是1和3
End Sub
