Fraction of seconds

I have set up a timer as follows:

Dim alertTime
alertTime = Now + TimeValue("00:00:01")
Application.OnTime alertTime, "procedure"

This does what I want, except I require time intervals less than one second.

Is this possible?

Art