連想配列を使う方法がよいらしい。
┌──────────────────────────────────────┐
│Private Function 配列重複除去(ByVal 配列 As Variant) As Variant             │
│    Dim i As Long, 連想配列 As Object                                       │
│    Set 連想配列 = CreateObject("Scripting.Dictionary")                     │
│    For i = 0 To UBound(配列)                                               │
│        If Not 連想配列.Exists(配列(i)) Then                                │
│            連想配列.Add 配列(i), ""                                        │
│        End If                                                              │
│    Next i                                                                  │
│    配列重複除去 = 連想配列.Keys                                            │
│End Function                                                                │
└──────────────────────────────────────┘