什么'；在VB6中查找不同字符串的最佳方法是什么？

考虑一个循环，其中将字符串聚合为逗号分隔的值字符串：

Dim Result As String
For Each Something In Things
    If Result <> vbNullString Then
        Result = Result & ","
    End If
    Result = Result & SomeStringFunction(Something)
Next Something

Dim结果为字符串
事物中的每一个事物
如果结果为空字符串，则
结果=结果&“
如果结束
结果=结果&SomeStringFunction（某物）
下一件事

这是可行的，但如果我只需要不同的字符串呢？我一直在使用这种方法，但它似乎非常“沉重”：

Dim Dict As Dictionary
Set Dict=新字典
事物中的每一个事物
Dict（SomeStringFunction（Something））=vbNullString
下一件事
将结果变暗为字符串
变暗vKey作为变量
对于Dict.Keys中的每个vKey
如果结果为空字符串，则
结果=结果&“
如果结束
结果=结果和CStr（vKey）
下一个vKey
Set Dict=无

好的，肮脏的黑客时间：

Dim Result As String
Dim noDupes as New Collection
For Each Something in Things
    On Error Resume Next
    noDupes.Add Something, Something
    If Err.Number = 0 Then
         If Result <> vbNullString Then
             Result = Result & ","
         End If
         Result = Result & SomeStringFunction(Something)
    End If
    Err.Clear
Next Something

Dim结果为字符串
Dim noDupes作为新系列
事物中的每一个事物
出错时继续下一步
点头，加点什么，什么
如果Err.Number=0，则
如果结果为空字符串，则
结果=结果&“
如果结束
结果=结果&SomeStringFunction（某物）
如果结束
呃，明白了
下一件事

好的，肮脏的黑客时间：

Dim Result As String
Dim noDupes as New Collection
For Each Something in Things
    On Error Resume Next
    noDupes.Add Something, Something
    If Err.Number = 0 Then
         If Result <> vbNullString Then
             Result = Result & ","
         End If
         Result = Result & SomeStringFunction(Something)
    End If
    Err.Clear
Next Something

Dim结果为字符串
Dim noDupes作为新系列
事物中的每一个事物
出错时继续下一步
点头，加点什么，什么
如果Err.Number=0，则
如果结果为空字符串，则
结果=结果&“
如果结束
结果=结果&SomeStringFunction（某物）
如果结束
呃，明白了
下一件事