VB 如何删除重复元素重建数组，没分数愿意回答不？

Question

a = Array（12，33，kjgf，567，12，kjgf，09kdf）
我想删除上面数组中重复的元素，得到a = Array（12，33，kjgf，567，09kdf）
并且再次调用数组A时就是删除后的数组a = Array（12，33，kjgf，567，09kdf）
，网上删除重复元素的代码很多，但再次调用的时候都是没有删除时的数组，可能是我不会调用吧，哪位大哥能帮一下不，不能能用Dictionary?
抱歉没分数，不愿意回答的可以理解

Answer 1

Private Sub Command1_Click()
Dim a, i%, d
a = Split("12，33，kjgf，567，12，kjgf，09kdf", "，")
Set d = CreateObject("scripting.dictionary")
For i = 0 To UBound(a)
If Not d.Exists(a(i)) Then d.Add a(i), ""
Next i
a = d.keys
Print Join(a, ", ")
End Sub