Написать программу в VBA в Access

Задача: Написать программу, вычисляющую значение функции y, если

y=2a+x2 при x>0

y=3b+3a при x=0

y=sinx+a при x<0

Sub F ()

Dim a As Double, b As Double, x As Double, y As Double

a = InputBox ("Введите a")

b = InputBox ("Введите b")

x = InputBox ("Введите x")

If x > 0 Then y = 2*a + x*x

If x = 0 Then y = 3*b + 3*a

If x < 0 Then y = Sin (x) + a

MsgBox (y)

End Sub