Найти дубли в массиве (не удалить!)

Sub iSort(arr() As Integer)
    n% = UBound(arr)
    For i% = 2 To n%
        j% = i% - 1
        x% = arr(i%)
        ii% = i%
        Do
           If j% = 0 Then Exit Do
           If arr(j%) <= x% Then Exit Do
           arr(ii%) = arr(j%)
           j% = j% - 1
           ii% = ii% - 1
        Loop
        arr(j% + 1) = x
    Next i%
End Sub
 
Function getRep(arr() As Integer) As Integer()
Dim res() As Integer
         n% = UBound(arr)
         iSort arr
         ReDim res(1 To n%) As Integer
         k% = 0
         For i% = 2 To n%
             If arr(i%) = arr(i% - 1) Then
                f% = 0
                For j% = 1 To k%
                    If res(j%) = arr(i%) Then
                       f% = -1
                       Exit For
                    End If
                Next j%
                If f% = 0 Then
                   k% = k% + 1
                   res(k%) = arr(i%)
                End If
             End If
         Next i%
         ReDim Preserve res(1 To k%) As Integer
         getRep = res
End Function
 
Sub test()
Dim Z(1 To 100) As Integer
Dim r() As Integer
    Randomize
    For i% = 1 To 100
        Z(i%) = Rnd() * 100
    Next i%
    Debug.print "Исх. массив:"
    For i% = 1 To 100
        Debug.Print Z(i%); " ";
    Next i%
    Debug.Print
    Debug.print "Повторяющиеся элементы:"
    r = getRep(Z)
    For i% = 1 To UBound(r)
        Debug.Print r(i%); " ";
    Next i%
End Sub