// Initializing sleep function
var sleep = (function(){
	var evt = GetObject('winmgmts:root\\CIMV2').ExecNotificationQuery(
		'SELECT Milliseconds FROM __InstanceModificationEvent WITHIN 10000 \
		WHERE TargetInstance ISA "Win32_LocalTime" AND TargetInstance.Year < 0'
	)
	return function(milliseconds){
		try {evt.NextEvent(milliseconds)} catch(e){}
	}
})()

// Testing
var d = new Date();
sleep(3000);
WSH.Echo(new Date() - d)

' Class initialization and creating Sleep as instance for future calls
Class clsSleep
	Private objEvent
	Private Sub Class_Initialize()
		Set objEvent = GetObject("winmgmts:root\CIMV2").ExecNotificationQuery( _
		"SELECT Milliseconds FROM __InstanceModificationEvent WITHIN 10000" & _
		"WHERE TargetInstance ISA 'Win32_LocalTime' AND TargetInstance.Year < 0")
	End Sub
	Public Default Sub [](Milliseconds)
		On Error Resume Next
		objEvent.NextEvent(Milliseconds)
	End Sub
End Class
Dim Sleep:Set Sleep = new clsSleep

' Testing
Dim sngStartTime
sngStartTime = Timer

Sleep 3000

MsgBox Int((Timer - sngStartTime) * 1000)