codice:
    Dim t As Double
    Dim x As Long

    t = Timer

    For x = 1 To 100000
        DoEvents
    Next x

    Print Timer - t
La For..Next rappresenta il codice da valutare ...