Вычислить значение выражения: Z на VBA

Function CalculateZ(z As Double) As Double
' Вычисляет значение выражения Z = cos^2(sin(1/z))

' Вычисляем sin(1/z)
Dim sinValue As Double
sinValue = Sin(1 / z)

' Вычисляем cos^2(sin(1/z))
Dim cosValue As Double
cosValue = Cos(sinValue)
cosValue = cosValue * cosValue

' Возвращаем результат
CalculateZ = cosValue
End Function

Sub TestCalculateZ()
' Пример использования функции CalculateZ
Dim z As Double
z = 1 ' Задайте значение z

Dim result As Double
result = CalculateZ(z)

' Выводим результат
MsgBox "Значение Z для z = " & z & " равно " & result
End Sub