Написать программу в 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