Посчитать какую скидку получил покупатель - VB

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

Нужна помощь с решением задач в basic через if then else Покупатели продуктового магазина пользуются 10% скидкой, если покупка состоит из более чем 10 наименований товаров или суммарная стоимость покупки превышает 1000 рублей. Посчитать какую скидку получил покупатель. Количество наименований купленного товара и суммарную стоимость покупки задать вводом с клавиатуры.

Решение задачи: «Посчитать какую скидку получил покупатель»

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

                            Dim cntClients As Integer 'кол-во покупателей
Dim cntCost As Currency 'лбщ. стоимость
Dim cntGoods As Integer 'кол-во товаров
Dim I As Integer 'текцщий покупатель
Dim Skidka As Integer ' скидка
cntClients = InputBox("Ввведите количество покупателей")
For I = 1 To cntClients
    cntCost = InputBox("Ввведите общ. стоимость покупки")
    cntGoods = InputBox("Ввведите количество наименований товаров")
    If cntCost > 1000 Or cntGoods > 10 Then
        Skidka = 10
    Else
        Skidka = 0
    End If
    Debug.Print "Покупатель: " & I & "" & ", скидка: " & Skidka & "%"
Next I
                        