Определить и вывести общие цифры двух чисел

Sub compareDigits()
    Dim common(0 To 9, 0 To 1) As Integer
    Dim dig1 As String, dig2 As String, i As Integer, n As Integer, s As String
    dig1 = InputBox("Введите первое число")
    dig2 = InputBox("Введите второе число")
    For i = 1 To Len(dig1)
        n = Val(Mid(dig1, i, 1))  'Найти последовательные цифры первого числа
        common(n, 0) = 1          'Записать в первый столбец массива
    Next
    For i = 1 To Len(dig2)
        n = Val(Mid(dig2, i, 1))  'Найти последовательные цифры второго числа
        common(n, 1) = 1          'Записать во второй столбец массива
    Next
    
    'В переменной s накапливаем текст для MsgBox
    s = "первое число: " & dig1 & vbCrLf & "второе число: " & dig2 & vbCrLf
 
    For i = 0 To 9                'Цикл сравнения. Если значения в обоих столбцах совпадают, значит общая
        If common(i, 0) = 1 And common(i, 1) = 1 Then s = s & "Общая цифра: " & i & vbCrLf
    Next
    MsgBox s
End Sub

 common(n, 0) =  common(n, 0)+1

common(n, 0) =1