将字典键填充为列表框值

Question

我试图在列表框中使用字典值。基于对本网站上其他问题的回答，我一直在尝试使用以下代码（没有运气）。它似乎非常简单，但它在第5和第6行引发错误：

Private Sub UserForm_Initialize()
    Dim dcValues As Scripting.Dictionary
    Me.listItems.Clear

    Set dcValues = unkItems 'Throws error
    Me.listItems.List = dcValues.Keys 'Throws error
    Me.listItems.AddItem "Back"

End Sub

关于我正在做什么的背景......我循环浏览工作表的一列并存储所有唯一值。我希望在列表框中显示这些值，对于选中的值，将它们发送到工作表。