VBScriptで配列の重複を削除する関数を作成してみた

EXcel VBAやVBScriptで配列の重複を削除する必要があり下記関数を作成しました。

辞書型を使うことで，重複文字列を除外しています。

Function DeleteDupulicate(RamArray)
    Set Dic = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    For i = 0 To UBound(RamArray)
        Dic.Add RamArray(i), RamArray(i)
    Next
    DeleteDupulicate = Dic.Keys
End Function