Найти Макс из чисел встречающихся в заданной матрице более одного раза

Function maxx(A() As Integer) As Integer
Dim X() As Integer
    n% = UBound(A, 1)
    m% = UBound(A, 2)
    ReDim X(1 To n% * m%, 1 To 2) As Integer
    p% = 0
    For i% = 1 To n%
        For j% = 1 To m%
            q% = A(i%, j%)
            Z% = 0
            For k% = 1 To p%
                If X(k%, 1) = q% Then
                   X(k%, 2) = 2
                   Z% = -1
                   Exit For
                End If
            Next k%
            If Z% = 0 Then
               p% = p% + 1
               X(p%, 1) = q%
               X(p%, 2) = 1
            End If
        Next j%
   Next i%
   Z% = 0
   For k% = 1 To p%
       If X(k%, 2) > 1 Then
          Max% = X(k%, 1)
          Z% = 1
          Exit For
       End If
   Next k%
   If Z% = 0 Then
      MsgBox "Âñå ÷èñëà óíèêàëüíû!"
   Else
      For k% = 1 To p%
          If X(k%, 2) > 1 And X(k%, 1) > Max% Then
             Max% = X(k%, 1)
          End If
      Next k%
      maxx = Max%
   End If
End Function
 
Sub Test()
Dim Z(1 To 3, 1 To 3) As Integer
    Z(1, 1) = 6
    Z(1, 2) = 4
    Z(1, 3) = -6
    Z(2, 1) = 8
    Z(2, 2) = 2
    Z(2, 3) = 8
    Z(3, 1) = 6
    Z(3, 2) = 4
    Z(3, 3) = 16
    Debug.Print maxx(Z)
End Sub