set c = new constants

limit = 10000

t0 = timer
for i = 1 to limit
        val = c.Pi
next
t1 = timer - t0
wscript.echo "Seconds to retrieve Pi from class property:", _
        FormatNumber(t1/limit, 7)


Class Constants

Public property get Pi
        Pi = 3.14159265358979
end property

end class