Set WshShell= WScript.Createobject("WScript.Shell") for i=1 to 100 WScript.Sleep 100 WshShell.SendKeys"^v" WshShell.SendKeys "%s" next