VBA-字典项未正确填充

我对此一无所知。我有一个如下列表,该列表可以即时获取。我希望能够创建一个数组或一个集合,以便可以在循环中进一步使用它。

Xob::SISBTXTRPR-5298 
Xob::SISBTXTRPR-5326 
Xob::SISBTXTRPR-5327 
Xob::SISBTXTRPR-5328
Yob::SISBTXTRPR-3999
Yob::SISBTXTRPR-4000

我试图创建如下的字典项,但输出不是我期望的

While i <= iPuntedIssuesCount 
    If sRemovedStoriesForTaskTracker.Exists(Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName"))) Then
        sRemovedStoriesForTaskTracker(Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName"))) = sRemovedStoriesForTaskTracker(Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName"))) & " + " & JSONObj("contents")("puntedIssues")(i)("key") 
    Else
        sRemovedStoriesForTaskTracker.Add key:=Trim(JSONObj("contents")("puntedIssues")(i)("assigneeName")), Item:=JSONObj("contents")("puntedIssues")(i)("key")
    End If
    i = i + 1
Wend

sRemovedStoriesForTaskTracker是词典项。 我得到的字典项中的输出如下所示:

Xob::SISBTXTRPR-5298 + SISBTXTRPR-5326 + SISBTXTRPR-5327 + SISBTXTRPR-5328. 

我希望字典这样填充

Xob::SISBTXTRPR-5298 
Xob::SISBTXTRPR-5326 
Xob::SISBTXTRPR-5327 
Xob::SISBTXTRPR-5328