Определить, какой процент от стоимости закупленного товара составляет торговая надбавка - VB

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

В магазине торговая надбавка на закупочную цену устанавливается исходя из стоимости единицы товара: при закупочной цене не более 1000 рублей надбавка составляет 10 процентов, от 1000 до 5000 рублей - 8 процентов, свыше 5000 рублей - 6 процентов. магазин приобрел n видов товара. цена и количество единиц товара известны. определить, какой процент от стоимости закупленного товара составляет торговая надбавка.

решение нужно отвести преподу к вечеру, очень нужна помощь

Решение задачи: «Определить, какой процент от стоимости закупленного товара составляет торговая надбавка»

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

                            Sub main()
Dim cCena As Currency
On Error GoTo ErrHandler
cCena = CCur(InputBox("Введите цену товара:", "Ввод данных"))
MsgBox "На данную цену скидка составит " & Proc(cCena) & "%", vbInformation, "Информация"
Exit Sub
ErrHandler:
MsgBox "Неверный ввод данных!", vbCritical, "Ошибка!"
End Sub
 
 
Function Proc(Cena As Currency) As Integer
Select Case Cena
    Case Is < 1000:     Proc = 10
    Case 1000 To 5000:  Proc = 8
    Case Is > 5000:     Proc = 6
End Select
End Function
                        