vba中怎么去除数组中重复的数据？

比如数组={"1","2","3","4","3","2"），有没有一种方法最终得到数组("1","2","3","4")。就是把重复的部分去掉，只保留一份！！求高手支持

遍历比较，后面和前面重复就去掉

VB code

Private Sub Command1_Click()
    Dim MyOne, MyTwo
    Dim i As Integer, j As Integer
    MyOne = Array("1", "2", "3", "4", "2", "3")
    For i = 0 To 5
        MyTwo = MyOne(i)
        For j = i + 1 To 5
            If (MyTwo = MyOne(j)) Then
                Dim newr(4)
                For k = 0 To 5
                    If (k <> j) Then
                        newr(k) = MyOne(k)
                    End If
                Next
            End If
        Next
    Next
End Sub

我折腾了半天，把自己折腾糊涂了。总之是这个思路。