vb外部程序无效

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

前后各加一句。
＝＝＝＝＝＝＝＝＝＝＝
private sub form_load() '加这个
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
end sub '加这个

Private Sub Command1_Click()
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, "再选择一下好吗？"