Рассчитать стоимость звонка - VB

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

17. Услуги телефонной сети оплачиваются по следующему прави¬лу: за разговоры до А минут в месяц оплачиваются В р., а раз-говоры сверх установленной нормы оплачиваются из расчета С р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц. За ранее спасибо за помощь. Избегайте использования ... "кричащего" выделения текста.

Решение задачи: «Рассчитать стоимость звонка»

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

                            Private Sub Form_Load()
    Dim A As Double, B As Double, C As Double, T As Double, R As Double
    A = InputBox("Введите лимит трафика (А)")
    B = InputBox("Введите цену за лимит (B)")
    C = InputBox("Введите цену сверх лимита (C)")
    T = InputBox("Введите общую длительность разговоров за месяц")
    R = B - (T > A) * (C * (T - A))
    MsgBox "Плата за разговор = " & R
End Sub
                        