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

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

Здраствуйте, я учусь на юридическом факультете и т.к. мой мозг полный гуманитарий, я не могу решить на первый взгляд простенькую задачу, буду благодарен любой помощи... Сама задача: Определить стоимость услуг мобильной связи, если известна стоимость одной секунды разговора, и продолжительность всех разговоров, цена одного смс и количество отправленных смс. P.S. Писал с телефона если где-то есть ошибки, извиняйте, буду рад любой помощи, числа я подставлю сам, важен сам алгоритм выполнения)) Спасибо заранее))

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

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

                            sub faculty()
продолжительность = 86400   '(с), это сутки разговоров
цена_секунды = 0.03         '(р./с) 
количество_сообщений = 15   'здесь задаём число SMS-сообщений
цена_сообщения = 0.5        '(р./с)
 
msgbox продолжительность * цена_секунды + количество_сообщений * цена_сообщения
end sub
                        