Scripting.Dictionary Code Returning Incorrect Results

[NeedForExcel]

Hi,

I am trying out this code on the attached file -

Sub ScrpDict()

    Dim Dict As Scripting.Dictionary, R As Variant
    Set Dict = New Scripting.Dictionary
    
    With Dict
        For Each R In Range("A2:A17")
            If R <> "" Then .Item(R) = Empty
        Next R
        MsgBox .Count
    End With
    
End Sub

However, even when I am using the .Item() property, it is still not returning unique values.

I want to get the unique values on the D Column..