I am looking for a way to include code that will update the passage of time while a program is running.

With the code below I can note how many 2 second increaments of time have past with the value of X.
What I would like to know is if there is a way to do this with a IF Statement instead of a DO UNTIL?

Dim Timer As Double
Dim X As Integer
X = 0
Again:
Timer = Now()
Do Until Now() - Timer > TimeValue("00:00:02")
Loop
X = X + 1
End Sub

Thank You.
WhyWhy