Array içerisine ekleme

Sub Main()
    ReDim Array1(0)
    Dim Array2, fruit
    Array2 = Array("Apple", "Banana", "Apple", "Cherry", "Banana", "Pear", "Cherry")
    For Each fruit In Array2
        Call AddIfUnique(Array1, fruit)
    Next
    If UBound(Array1) > 0 Then
        ReDim Preserve Array1(UBound(Array1) - 1)
    End If
    For Each fruit In Array1
        MsgBox fruit
    Next
End Sub
Sub AddIfUnique(ByRef Array1, NewItem)
    Dim subArr
    subArr = Filter(Array1, NewItem, 1)
    If UBound(subArr) = -1 Then
        Array1(UBound(Array1)) = NewItem
        ReDim Preserve Array1(UBound(Array1) + 1)
    End If
End Sub