Посчитать, какую скидку получил покупатель, используя Select Case - VBA

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

Помогите, пожауйста, разобраться,как задать эту задачку в VBA с помощью Select Case(( Покупатели продуктового магазина пользуются 10% скидкой, если покупка состоит из более чем 10 наименований товаров или суммарная стоимость покупки превышает 1000 рублей. Посчитать какую скидку получил покупатель. Количество наименований купленного товара и суммарную стоимость покупки задать вводом с клавиатуры. я попробывала что-то составлять,но что-то не особо получилось((

Sub DD()
Dim d As Integer, q As Single, p As Single
p = InputBox("p")
q = InputBox("q")
Select Case d
Case 1: MsgBox q > 10
Case 2: MsgBox p > 1000
End Select
Sheets("Г‹ГЁГ±ГІ3").Cells(1, 1) = "q="
Sheets("Г‹ГЁГ±ГІ3").Cells(1, 2) = "p="
Sheets("Г‹ГЁГ±ГІ3").Cells(1, 3) = "d="
Sheets("Г‹ГЁГ±ГІ3").Cells(2, 1) = "q="
Sheets("Г‹ГЁГ±ГІ3").Cells(2, 2) = "p="
Sheets("Г‹ГЁГ±ГІ3").Cells(2, 3) = "d="
 
End Sub

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

textual
                            Листинг программы 
                        
                            MsgBox "Скидка составила " & p * q * скидка / 100 & " руб."