Dim goal, before, x, y, i
goal = 5000000
Do While True
before = Timer
For i = 0 to goal
x = 0.000001
y = sin(x)
y = y + 0.00001
Next
y = y + 0.01
WScript.Echo "I did five million sines in " & Int(Timer - before + 0.5) & " seconds!"
Loop