As Kyle mentioned .Items() returns Array of item so you can refer it by index like .Items()(0)
I would use array like I did for generate csv file in you attachment.
You code doing extra loop that is no need
Sub UseDictionaries()
Dim Dict As Scripting.Dictionary, Cell As Range, Counter As Integer
Set Dict = New Scripting.Dictionary
With Dict
.CompareMode = TextCompare
For Each Cell In Range("A2:B" & Range("A1").SpecialCells(xlCellTypeLastCell).Row)
If (Cell.Value <> "") * (Not .Exists(Cell.Value)) Then
Cells(.Count + 1, "C").Value = Cell.Value
.Item(Cell.Value) = Cell.Value
End If
Next Cell
End With
End Sub
Bookmarks