Определить количество различных элементов в массиве

Option Explicit
Option Base 1
Const N As Long = 20
 
Public Sub Test1()
    Dim MyArray(1 To N) As Double, i As Long
    For i = 1 To N
        MyArray(i) = Rnd * 1000
    Next
    Debug.Print "Количество различных элементов массива  = " & CountNumbersInArray(MyArray)
    MyArray(1) = MyArray(N) ' Приравниваем элементы массива приравниваем друг другу
    MyArray(2) = MyArray(N - 1) ' Приравниваем элементы массива приравниваем друг другу
    Debug.Print "Количество различных элементов массива  = " & CountNumbersInArray(MyArray)
End Sub
 
Public Function CountNumbersInArray(ByVal InputArray As Variant) As Long
    Dim i As Long, j As Long, Flag As Boolean
    CountNumbersInArray = 0
    For i = 1 To UBound(InputArray)
        Flag = True
        For j = 1 To CountNumbersInArray
            If InputArray(i) = InputArray(j) Then
                Flag = False
                Exit For
            End If
        Next
        If Flag Then
            CountNumbersInArray = CountNumbersInArray + 1
            InputArray(CountNumbersInArray) = InputArray(i)
        End If
    Next
End Function