Изменение данных в ListBox при выборе значения ComboBox

[andreysuperman42]

Помогите решить задачу.
Есть список 3 столбца, вывожу на ListBox, фильтрую по 1 столбцу.
Два других столбца хочу выбирать через ComboBoxы, но результаты чтобы были на ListBoxе.

Файл прилагаю (Excel 2003).

[andreysuperman42]

Получилось вносить в ComboBox1 значение тары

Private Sub TextBox1_Change()

    Me.ListBox1.Clear
    With CreateObject("Scripting.Dictionary")
        For lngCounterArray = 2 To UBound(varArray)
            If UCase(varArray(lngCounterArray, 1)) Like "*" & UCase(Me.TextBox1) & "*" Then    ' Фильтрация по TextBox...
                Me.ListBox1.AddItem lngCounterArray    ' Заносим в 1-ый (скрытый) столбец ListBox номер строки на листе
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = varArray(lngCounterArray, 1)    ' Заносим во 2-ой столбец ListBox товар
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = varArray(lngCounterArray, 2)    ' Заносим во 3-ий столбец ListBox тару
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = varArray(lngCounterArray, 3)    ' Заносим во 4-ый столбец ListBox город
                Me.ComboBox1.Value = .Item(varArray(lngCounterArray, 2))
            End If
        Next lngCounterArray
        Me.ComboBox1.List = .Keys    ' Заносим в ComboBox значение тары
    End With
End Sub

[andreysuperman42]

Сам разобрался.
Только есть один нюанс, если пользователь выбирает сначала одну тару, а потом передумает и выберет другую, то данные в ListBox теряются.

Может кто подскажет, как лучше исправить код?