Ich weiß nicht, wie ich ein Skript stoppen soll

Ich habe diesen Scrip kopiert und ausgeführt, um zu verhindern, dass mein PC in den Sperrbildschirm wechselt. Jetzt weiß ich nicht, wie ich es stoppen soll und es ist schwierig, die "NumLOCK" alle 6 Sekunden zurückzusetzen, während ich an Excel arbeite: Dim objResult Set objShell =...