Написать пользовательские функции

[MrRick]

Написать пользовательские функции для получения всех расчетных значений в списке, созданном в индивидуальном задании, согласно варианта.

Код

Sub ЛабораторнаРобота5()
Worksheets("Лист2").Activate
Range("A1").Value = "Y"
Range("A2").Value = "x"
Range("B2").Value = "y"
Range("C1").Value = "Z"
Range("C2").Value = "x"
Range("D2").Value = "y"
Dim x As Single, y As Single
x = InputBox("Введите значение Х")
y = z(x)
x1 = InputBox("Введите значение Y")
y1 = z1(x1)
Range("A3").Value = x
Range("B3").Value = y
Range("C3").Value = x1
Range("D3").Value = y1

End Sub
Function z1(x As Single) As Single
y1 = (1 + x ^ 2) / (1 + 2 * x ^ 2)
End Function
Function z(x As Single) As Single
If x <= 0 Then
z = 3 * Sin(x) - Cos(x) ^ 2
Else
z = 3 * (1 + x ^ 2) ^ 1 / 2
End If
End Function