Для двух последовательностей чисел определить множество чисел, которое встречается в обоих - VB

Private Sub Command1_Click()
Dim A() As Single, B() As Single
Dim n As Integer, m As Integer
Dim C() As Single, cCount As Integer
n = InputBox("Размерность первой последовательности")
m = InputBox("Размерность второй последовательности")
ReDim A(1 To n), B(1 To m)
For i = 1 To n
    A(i) = Int(10 * Rnd - 5)
Next i
For i = 1 To m
    B(i) = Int(10 * Rnd - 5)
Next i
For i = 1 To n
    For j = 1 To m
        If A(i) = B(j) Then
            cCount = cCount + 1
            ReDim Preserve C(1 To cCount)
            C(cCount) = A(i)
        End If
    Next j
Next i
End Sub