Составить процедуру для вычисления значения функции

[flawlessly]

Помогите пожалуйста с программой, нужно успеть сдать ее до 14:30, а я делаю второе задание по vba, не успеваю! Заранее огромное спасибо!!!