Of interest is the code that performs the actual measurements. Any other code (such as job implementation or dispatching) that is required to demonstrate the rate tracking is helpful, but not the focus.

Multiple approaches are allowed (even preferable), so long as they can accomplish these goals:

 Run N seconds worth of jobs and/or Y jobs.
 Report at least three distinct times.

Be aware of the precision and accuracy limitations of your timing mechanisms, and document them if you can.

See also: System time, Time a function

 
Dim Shared As Integer i
 
Sub timeit
    Dim As Integer iter = 0
    Dim As Double starter = Timer
    While True
        iter += 1
        If Timer >= starter + i Then Exit While
    Wend
    Print iter; " iteraciones en"; i; " milisegundo"; Iif(i > 1, "s", "") 
End Sub
 
For i = 1 To 3
    timeit
Next i
 
i = 200 : timeit
Sleep
 