Задача на циклы в vbs, именно vbs Нужно ввести с клавиатуры число как только число будет больше 10 программа должна завершить свою работу, должно же быть зацикливание? что не так?

Dim a
a=0
do
MsgBox("Введи число")
a=InputBox(a)
MsgBox(a)
Loop while (a>10)