VBS to send NumLock signal every ten minutes

Dim objResult

Set objShell = WScript.CreateObject("WScript.Shell")
i = 0

Do While i = 0
        objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
        WScript.Sleep 1000*60*10
Loop
' -End of Source-