Может ли кто-нибудь проверить мое приложение VISUAL BASIC?

---

Вопрос по учебнику: Создайте приложение SandwichOrder, которое создает заказ сэндвича, запрашивая у пользователя размер сэндвича (маленький или большой) и крепления (салат, помидор, лук, горчица, майонез, сыр). Маленький бутерброд стоит $2.50, а большой - $4.00. Горчица и майонез-бесплатно, салат и лук-по 0,10 доллара, помидор-0,25 доллара, сыр-0,50 доллара. По умолчанию это должен быть небольшой сэндвич без каких-либо креплений.

Что я уже пробовал:

Точнее, это логическая ошибка. Допустим, например, я выбрал большой размер бутерброда и хотел помидор и сыр в качестве своих добавок. Все это составляет в общей сложности $4,75. Но когда я отлаживаю свое приложение, оно вместо этого отображает $4,50... Может быть, я что-то делаю не так?

Const SMALL As Decimal = 2.5
        Const LARGE As Decimal = 4.0
        Const LETTUCE As Decimal = 0.1
        Const ONION As Decimal = 0.1
        Const TOMATO As Decimal = 0.25
        Const CHEESE As Decimal = 0.5
        Dim numToppings As Integer = 0
        Dim toppingsPrice As Decimal
        Dim pizzasPrice As Decimal

        If Me.chkLettuce.Checked = True Then
            numToppings += 1
            toppingsPrice = LETTUCE
        End If
        If Me.chkOnion.Checked = True Then
            numToppings += 1
            toppingsPrice = ONION
        End If
        If Me.chkTomato.Checked = True Then
            numToppings += 1
            toppingsPrice = TOMATO
        End If
        If Me.chkCheese.Checked = True Then
            numToppings += 1
            toppingsPrice = CHEESE
        End If

        If Me.radSmall.Checked = True Then
            pizzasPrice = SMALL
        End If
        If Me.radLarge.Checked = True Then
            pizzasPrice = LARGE + toppingsPrice
        End If

        Me.lbltotalprice.Text = pizzasPrice

---