Excel VBA сравнить 2 списка на несколько столбцов

Question

Я пытаюсь создать простую пользовательскую форму VBA для проверки 2 ListBox, но с 2 условием

1. проверьте номер продукта
2. , если номер продукта в порядке, проверьте количествотовар в порядке или нет

Моя форма пользователя

На этой картинке показан код, который я нахожу (который я искал здесь и немного его изменил) простоудалите дубликат.И, конечно, я знаю, что код просто проверяет 1 столбец каждого ListBox.

Но после долгого поиска и попытки я не могу найти какие-либо способы проверить listbox1 column2 с listbox2 column1 THEN, если его равный checkbox list1 column 4 равен listbox2 colum 2

Это простое приложение для инвентаризации, котороеЯ пытаюсь сделать для себя.И список 2 будет заполнен каким-нибудь сканером штрих-кода.

Dim obj As Object
Set obj = CreateObject("Scripting.Dictionary")    

'1st ListBox
For i = 1 To ListBox1.ListCount - 1
    If Not obj.Exists(CStr(ListBox1.List(i, 1))) Then
        obj.Add CStr(ListBox1.List(i, 1)), vbNullString
    End If
Next
'2nd ListBox
For i = 1 To ListBox2.ListCount - 1
    If Not obj.Exists(CStr(ListBox2.List(i, 0))) Then
'add unique of list 2
     obj.Add ListBox2.List(i, 0), vbNullString
   Else

'delet duplicte of list 1
      obj.Remove ListBox2.List(i, 0)
    End If
Next

'add unique list to 3rd ListBox
Dim Key As Variant
     ListBox3.List = obj.Keys()
    lblerr.Caption = ListBox2.ListCount / 2