我是个刚学编程的初中生，今天试做了个小代码，请问问题出在哪？？

msgbox"你好"

msgbox"不要碰这个电脑，你懂吗"

msgbox"碰了是狗"

msgbox"所以你不碰了"
dim i
do while i<1
Select Case msgbox("现在知道了？骗你的，玩去吧"，34，""）

Case 6 i=1
Case 7
msgbox"我可是警告过你了，再给你一次机会"

end Select
loop
msgbox"哈哈哈哈"

你写的 6 7 34这些谁知道什么东西
好好写成 VbYesNo VbYes VbNo