重複なしのリスト作成（ハッシュマップ、連想配列）

Dim DIC As Object , keys As Object
Dim i As Integer, temp as String
Set DIC = CreateObject("Scripting.Dictionary")

temp = "Test"

'リストに無ければ、リストと配列に追加
If Not DIC.Exists(temp) Then
    DIC.Add temp, "値" '辞書に追加
End If

'確認
keys = DIC.keys
For i = 0 To DIC.Count - 1
     Debug.Print keys(i)
Next i

Set DIC = Nothing