[VBA函数]：求助：提取tag中的信息

小问题

请求帮助！！！！！
我用VBA进行microstation的二次开发工作。我遇到了一个难题。我想将tag中的信息提取出来放到word文档中。可是我只能提取tag中的一个信息。其他的信息提取不了。请问有什么办法解决吗？

这是我写的有关代码：
Sub DoExample()
   
    Dim sc As New ElementScanCriteria
    Dim counter As Long
    Dim eleTag As TagElement
    Dim strNames As String
    Dim strName(0 To 20) As String
    Dim j As Integer
    Dim tagDef As TagDefinition
   
     
    sc.ExcludeAllTypes
    sc.IncludeType msdElementTypeTag
    Set ee = ActiveModelReference.Scan(sc)
   
    Do While ee.MoveNext
        Set eleTag = ee.Current
        
    strNames = eleTag.TagSetName
   
    For j = 0 To 20
     strName(j) = eleTag.TagDefinitionName
     
    Next j
end sub

请帮我看看！谢谢

小问题

microstation迷，你好！久闻你的大名了。谢谢你的指点。我现在好像就是被这两组概念搞混了。你能帮我讲一下它们所分别代表的含义吗？谢谢了！

pipi

TagSets类似于数据库的Tables
TagSet类似于Table
TagDefinitions类似于表的Fields
TagDefinition类似Field

小问题

例如：一个标签集中有6个信息内容。我想将这六个信息名全部通过VBA将这些信息名在窗体中显示出来。
现在我只能通过上面的代码提取一个信息名。其他的我该怎么办？
谁能帮帮我呀！！