'Simple Benchmark
MsgBox "Click OK to start benchmark." & vbcrlf & "It will take 10 seconds to run.",0,"NS Basic/Desktop Benchmark"
Output.caption="Benchmark - Please wait 10 seconds for result..."

Dim limit, counter
limit = dateAdd("s",10,now)
counter = 0 
Do Until Now > Limit
    counter = counter + 1
Loop

MsgBox counter/10,0,"Iterations Per Second"