Вычислить значение выражения при заданном X - VB

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

Составить блок-схему и написать программу вычисления функции пользователя W: |x-2| -5x3, если x<1.4; W = все в скобках 1.3sin(3x), если x=1.4; cos2(x)+e-2x+1, если x>1.4;

Решение задачи: «Вычислить значение выражения при заданном X»

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

                            Function W(x) As Single
W = IIf(x < 1.4, Abs(x - 2) - 5 * (x ^ 3), IIf(x > 1.4, (Cos(x)) ^ 2 + Exp(1) - 2 * x + 1, 1.3 * Sin(3 * x)))
End Function
                        