Написать программу для нахождения значений функции: y=5x-3 если x< 0, y=sqr(x) если х> =0

Dim x, y As Double
x = InputBox("Enter X")
If x < 0 Then y = 5 * x - 3
If x >= 0 Then y = Sqr(x)
MsgBox (y)