can someone help me?

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 3000
wshshell.sendkeys "{/}"
wshshell.sendkeys "{s}"
wshshell.sendkeys "{e}"
wshshell.sendkeys "{n}"
wshshell.sendkeys "{d}"
wshshell.sendkeys "{ }"
wshshell.sendkeys "{t}"
wshshell.sendkeys "{r}"
wshshell.sendkeys "{a}"
wshshell.sendkeys "{d}"
wshshell.sendkeys "{!}"
wshshell.sendkeys "{e}"
wshshell.sendkeys "{s}"
wshshell.sendkeys "{ }"
wshshell.sendkeys "{i}"
wshshell.sendkeys "{m}"
wshshell.sendkeys "{a}"
wshshell.sendkeys "{f}"
wshshell.sendkeys "{k}"
loop

i want to press F5 to stop the loop and f4 to start it again?