VBA Excel. 2 listboxа как в них вводить значения в зависимости от переменной?

Формулировка задачи:

VBA Excel. На форме 2 listboxa, Например list1 и list2. И 1 кнопка, при нажатии она обращается к модулю в которой оператор for считает от 1 до 2. И если в For переменная равна 1, тогда в list1 добавляется строка со значением x, а, если переменная равна 2, тогда в list2 добавляется строка со значением y. Как это организовать?

Решение задачи: «VBA Excel. 2 listboxа как в них вводить значения в зависимости от переменной?»

textual
                            Листинг программы 
                        

                            For schetPmPj = 1 To 2
   Set spisokFailovPmPj = UserForm1.Controls("List" + CStr(schetPmPj))
   spisokPmPj = spisokFailovPmPj.ListCount - 1
Next schetPmPj

                        