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

Sub main()
Dim A() As Double
Dim B() As Double
Dim C() As Double
Dim masA() As Integer
Dim masB() As Integer
Dim masC() As Integer
Dim otv1() As Integer
Dim otv2() As Integer
Dim otv3() As Integer
Dim i As Integer
Dim j As Integer
Dim S As Integer
'сверху задаются переменные и массивы
N = InputBox("сколько чисел в массиве А хочешь?")
'здесь задаётся значение переменной n которую ты сам вводишь в инпут бокс с клавиатуры
ReDim masA(1 To N)
' masA принимает значение N
For i = 1 To N
   masA(i) = InputBox("Ну давай, вводи теперь элемент номер(" & i & "):")
   Worksheets("sheet1").Cells(i + 1, 1) = masA(i)
Next i
' действие выполняется пока i не примет значения N, задаётся это выражением i+1 при повторении каждого действия
'а так же результаты ввода в инпут бокс выводятся в столбец A
M = InputBox("А сколько чисел в массиве В хочешь?")
'здесь задаётся значение переменной m которую ты сам вводишь в инпут бокс с клавиатуры
ReDim masB(1 To M)
' masB принимает значение M
For j = 1 To M
   masB(j) = InputBox("Ну, вводи элемент номер(" & j & "):")
   Worksheets("sheet1").Cells(j + 1, 2) = masB(j)
Next j
' действие выполняется пока i не примет значения M, задаётся это выражением j+1 при повторении каждого действия
'а так же результаты ввода в инпут бокс выводятся в столбец B
L = InputBox("Ну давай, введи число элементов масива С")
'здесь задаётся значение переменной L которую ты сам вводишь в инпут бокс с клавиатуры
ReDim masC(1 To L)
' masC принимает значение L
For S = 1 To L
   masC(S) = InputBox("щёлкай элемент номер(" & S & "):")
   Worksheets("sheet1").Cells(S + 1, 3) = masC(S)
Next S
' действие выполняется пока S не примет значения L, задаётся это выражением S+1 при повторении каждого действия
'а так же результаты ввода в инпут бокс выводятся в столбец C
For i = 1 To N
If masA(i) <> masA(i) Then otv1(i) = masA(i)
Next i
 For j = 1 To M
If masB(j) <> masB(j) Then otv2(j) = masB(j)
Next j
For S = 1 To L
If masC(S) <> masC(S) Then otv3(S) = masC(S)
Next S
 
 
MsgBox "Повторяющиеся элементы в массиве A:", i
MsgBox "Повторяющиеся элементы в массиве B:", otv2(j)
MsgBox "Повторяющиеся элементы в массиве C:", otv3(S)
 
End Sub

Function RepeatedEl(A() As Integer)
Dim Res() As Integer
    n% = UBound(A, 1)
    ReDim Res(1 To n%) As Integer
    p% = 0
    For i% = 1 To n% - 1
        For j% = i% + 1 To n%
            If A(i%) = A(j%) Then
               q% = 0
               For k% = 1 To p%
                   If Res(k%) = A(i%) Then
                      q% = -1
                      Exit For
                   End If
               Next k%
               If q% = 0 Then
                  p% = p% + 1
                  Res(p%) = A(i%)
               End If
            End If
        Next j%
    Next i%
    If p% > 0 Then
       ReDim Preserve Res(1 To p%) As Integer
       RepeatedEl = Res
    Else
       RepeatedEl = Empty
    End If
End Function