'/**
' * Wartet mit der weiteren Ausführung des Codes für X Sekunden
' * @example    Call sleep(10)
' * @param  <Integer>   Sekunden
' * @return void
' */
Public Sub sleep(sec As Integer)    
	Call Application.Wait(DateAdd("s", sec, Now()))
End Sub