Удаление одинаковых значений с массива. - VB

Формулировка задачи:

Доброго времени суток!
Вопрос следующего типа:
Есть массив данных, в нем выражения типа String, необходимо удалить одинаковые значения, и вернуть полученное в новый массив, или в этот же. Не могу понять как делать, буду благодарен =)

Решение задачи: «Удаление одинаковых значений с массива.»

textual
                            Листинг программы 
                        

                            Dim massiv(3) As String
Dim oDic As New Scripting.Dictionary
Dim varKey As Variant
Dim i As Integer

massiv(0) = "qqq"
massiv(1) = "qqq"
massiv(2) = "qqqq"
 
Set oDic = RemoveDupesFromArray(massiv)

ReDim massiv2(oDic.Count)

For Each varKey In oDic.Keys
    massiv2(i) = varKey
    i = i + 1
Next varKey


Private Function RemoveDupesFromArray(ByVal varMassiv As Variant) As Scripting.Dictionary
    Dim oDic As New Scripting.Dictionary
    Dim i As Integer

    
    For i = LBound(varMassiv) To UBound(varMassiv) - 1
        If Not oDic.Exists(varMassiv(i)) Then
             oDic.Add varMassiv(i), varMassiv(i)
        End If
    Next i
        
    Set RemoveDupesFromArray = oDic
End Function

                        