Çözüldü Listboxta oluşan listeyi Comboboxa benzersiz alma

[sirkülasyon]

Userform1 de yer alan listboxta oluşan listeyi benzersiz olarak buton yardımı ile combobox1' e almak için yardımcı olabilir misiniz?

 

[sirkülasyon]

Private Sub CommandButton1_Click()
Dim dict As Object
Dim i As Long

Set dict = CreateObject("Scripting.Dictionary")
For i = 0 To ListBox1.ListCount - 1
dict.Item(ListBox1.List(i)) = vbNullString
Next i
ComboBox1.List = dict.keys
Set dict = Nothing
End Sub

kodu ile çözüme ulaştım. Teşekkür ederim.