Помогите с задачкой - VB

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

Суть задачи такова, сделать приложение аля бензоколонка. Сделал все меню но вот с самим подсчетом возникли трудности, не смог разобратся с присваиванием элементам чисел. Если кому не трудно то можете кинуть нечто похожее или подсказать что по теме почитать.

Решение задачи: «Помогите с задачкой»

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

                            Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim f As Integer
Dim Z()
Z = Array(10, 20, 30, 40, 50) 'цены бензина
If ListBox2.ListIndex >= 0 Then a = Val(Z(ListBox2.ListIndex) * Val(ComboBox1.Text))
b = IIf(CheckBox2.Value = True, 15, 0)
c = IIf(CheckBox1.Value = True, 12, 0)
Z = Array(15, 25, 32, 48, 56) 'цены сопутсвующих товаров
If ListBox1.ListIndex >= 0 Then d = Val(Z(ListBox2.ListIndex))
Select Case ComboBox2.ListIndex
Case 0
f = Val(TextBox2.Text) * 25
Case 1
f = Val(TextBox2.Text) * 30
End Select
 
Label1.Caption = f + b + c + d + f
 
End Sub
                        