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