Найти, сколько членов первой последовательности совпадают с членами второй

Sub zero()
Dim a() As Integer
Dim b() As Integer
Dim i, j, n, m As Integer
ReDim a(n) As Integer
ReDim b(m) As Integer
n = InputBox("Введите размерность последовательности a")
m = InputBox("Введите размерность последовательности b")
For i = 1 To n
For j = 1 To m
a(i) = InputBox(Введите  & (i + 1) & "-й член последовательности")
b(j) = InputBox("Введите" & (j + 1) & "-1 член последовательности")
 
If a(i)(i = j) And b(j)(j = i) Then
MsgBox ("i") & Chr(13)("j")
 
 
End Sub

Sub zero()
Dim i, j, n, m As Integer
n = InputBox("Введите размерность последовательности a")
m = InputBox("Введите размерность последовательности b")
ReDim a(n) As Integer
ReDim b(m) As Integer
For i = 0 To n - 1
    a(i) = InputBox("Введите " & (i + 1) & "-й член последовательности")
Next i
For j = 0 To m - 1
    b(j) = InputBox("Введите " & (j + 1) & "-й член последовательности")
Next j
sch = 0
For i = 0 To n - 1
    For j = 0 To m - 1
        If a(i) = b(j) Then sch = sch + 1
    Next j
Next i
MsgBox("Количество совпадающих членов последовательностей = " & sch)
End Sub