求高手看一段程序..

Dim a as string
Dim b as string
Dim c as string
a=msgbox("你认为你爱DJ吗？",36,"提问NO1")
if a = 6 then
b=msgbox("你认为DJ爱你吗？",36,"提问NO2")
if b=6 then
c=msgbox("那你们可以永远在一起了！",48,"Congratulations！")
else
msgbox"这不是真的把，一定不是……"，vbcritical,"再选择一下好吗？"
end if
else
msgbox"这不是真的把，一定不是……"，vbcritical,"再选择一下好吗？"
end if

它老说外部程序错误...

c#求一段小程序，高手来 求VB高手指点一段程序 求高手赐一段串口程序 JAVASCRIPT 求一段程序!高手请帮忙 求一段小程序 求一段程序？ 求一段ASP程序 求一段java程序 帮忙看一段小程序 求一段asp代码的写法。高手来看看。