OnTime, TimveValue to repeat every 0.2 sec?

[gs2000]

A statement like:
Application.OnTime Now + TimeValue("00:00:15")
can be used to delay executing something by 15 seconds.

If I wanted to use a delay that is less than a second, what do I do?

To be more specific - I am writing something in VBA in Excel 2000 wher
the program communicates with a device connected to Com Port. I wan
to send out a command and receive data back every 0.2 seconds.

Look forward to your help, thanks

 

[Dick Kusleika]

gs2000

Sorry, one second is the smallest time OnTime will accept.

I don't know if this will work, but you might try Wait.

Dim endtime As Date

endtime = Now + TimeValue("00:00:05")

Do
Application.Wait Now + (1 / 24 / 60 / 60 / 100 * 2)
'run code
Loop Until Now = endtime

Wait may have the same restrictions as OnTime, but it's worth a shot.