Как сделать цикл внутри цикла в VBS?

установить WshShell = WScript.CreateObject(WScript.Shell)

WScript.Сон 1000

Выполнить x=x+1 Выполнить y=y+1 WshShell.SendKeys test{ENTER} WScript.Sleep 500 Цикл до y=7

WScript.Сон 3000

Цикл до x = 3

помогите пожалуйста