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