here I tested with 2 directly in the code

Dim LastTime, StopTime, i

StopTime= Now+2/24/3600

ShowSystemAlarm "Script will be waiting for " & 2 & " seconds."

Do

If Now>LastTime + 0.1/24/3600 Then

i = i+1

ShowSystemAlarm "Script is waiting " & Left("....", (i Mod 4) +1)

LastTime= Now

End If

Loop Until Now>=StopTime

ShowSystemAlarm "Script resumes working."

good luck

 TP700, V18 upd2

Dim start, wait

start = Now()

wait = 2 's

SmartTags("stringS") = Now()

Do Until ( (Second(Now() - start)) >= wait )

ShowSystemAlarm "val = " & CStr(Second(Now() - start)) & ">=" & CStr(wait)

Loop

SmartTags("stringF") = Now()

 good luck