Для каждого из массивов определить повторяющиеся элементы

Sub main()
Dim A() As Double
Dim B() As Double
Dim C() As Double
Private Sub rep(mas, r, d)
Dim d As Integer
Dim mas(d) As Double
Dim r(d) As Double
Dim k As Integer
Dim j As Integer
 Worksheets("Лист1").Cells(1, 1) = "Массивы A, B и C:"
For k = 1 To d
    For j = k + 1 To d - k
       If mas(k) = mas(j) Then r(k) = mas(k)
       End If
    Next j
Next k
End Sub
 
 
Sub main()
Dim masA() As Integer
Dim masB() As Integer
Dim masC() As Integer
Dim r1 As String
Dim r2 As String
Dim r3 As String
N = InputBox("Число элементов массива A")
ReDim masA(1 To N)
For i = 1 To N
   masA(i) = InputBox("Введите элементов(" & i & "):")
   Worksheets("Лист1").Cells(i + 1, 1) = masA(i)
Next i
M = InputBox("Число элементов массива B")
ReDim masB(1 To M)
For j = 1 To M
   masB(j) = InputBox("Введите элемент(" & j & "):")
   Worksheets("Лист1").Cells(i + 1, 2) = masB(j)
Next j
L = InputBox("Число элементов массива C")
ReDim masC(1 To L)
For S = 1 To L
   masC(S) = InputBox("Введите элемент(" & S & "):")
   Worksheets("Лист1").Cells(i + 1, 3) = masC(S)
Next S
rep A, masA, N
rep B, masB, M
rep C, masC, L
MsgBox "Повторяющиеся элементы в массиве A: & masA & "
MsgBox "Повторяющиеся элементы в массиве B: & masB & "
MsgBox "Повторяющиеся элементы в массиве C: & masC & "
End Sub