Addition
Dim x, x1, X2
x = GETVAL("SLOPE") + 100.0
sum = x + x1 + X2
Multiplication
Dim x
x = GETVAL("degrees") * 3.14159265 / 180
Trigonometric Functions
Dim x, y
x = GETVAL("SLOPE") / 100.0
y = Atn(x)
SETVAL "radians=" & Cstr(y)
SETVAL "degrees=" & Cstr(y * 180 / 3.14159265)
Rem Atn function is under
Rem MSDN Home > MSDN Library > Web Development > Scripting > Windows Script Technologies > VBScript > Reference > Functions
Rem at http://msdn.microsoft.com/library/en-us/script56/html/vsfctAtn.asp