帮我看看哪里出错了，上面写的缺少loop

'猜物品'
dim name,a
dim timu
a="Please tell me the title"
timu=inputbox(a)
dim Clues1
a="Tell me the Clues1"
Clues1=inputbox(a)
dim Clues2
a="Tell me the Clues2"
Clues2=inputbox(a)
dim input
msgbox"Please guess"
a="The first Clues is"
msgbox(a)
msgbox(Clues1)
a="The second Clues is"
msgbox(a)
msgbox(Clues2)
a="Can you guess"
do
input=inputbox(a)
if input=timu Then
msgbox"you are right"
end if
exit do
else
msgbox"you wrong"
Loop