Dim x As Integer
Dim y As Integer
Dim z As Integer

x = 0
z = Cos(x)

Terminate