run this code 1000 milliseconds from now...

[CyberHawke]

Yep, this should work just fine for you

Dim tEnd As DateTime = Now
        While Now < tEnd.AddMilliseconds(1000)
            Trace.Write("Still less than 1 second" & vbCrLf)
        End While
        Trace.Write("OK, it's over" & vbCrLf)