Как можно реализовать общую стоимость всех товаров - VB

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

Приветствую. Такой вопрос: Есть два ComboBox'а. Один с наименованием товара, другой с количеством. Так же есть кнопка при нажатии на которую, значения Box'ов отправляются в TextBox. Допустим, что для каждого товара есть своя цена. Как можно реализовать общую стоимость всех товаров в TextBox'e? Пробовал через:

Dim I, D1, D2 as Integer
I = Val(Combo2.Text) 'Присваиваем переменной значение кол-ва товара
If Combo1.Text = "ТоварНейм1" then
 D1 = 150*I 'Считаем стоимость первого товара за n-е кол-во
End If
If Combo1.Text = "ТоварНейм2" then
 D2 = 250*I 'Считаем стоимость второго товара за n-е кол-во
End If

Однако беда в том, что в таком случае запоминается только одна переменная. Может быть можно организовать это как то проще?

Решение задачи: «Как можно реализовать общую стоимость всех товаров»

textual
                            Листинг программы 
                        
                            for i = 0 to Combo1.ListCount-1
 
D1 = clng(Combo2.Text)*Combo1.column(1,i)
 
next i