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

x = 5
z = Abs(x)

Terminate