<% = "start:" & SecondsToDate(now(), "hh nn ss") Dim t Repeat t = t + 1 Flush Until t > 50000 = "
stop:" & SecondsToDate(now(), "hh nn ss") %>