请高手们前辈们帮忙看看为什么我这程序没有办法运行!十分感谢

Question

Option ExplicitPrivate Sub Form_Click()
Dim msg1 As String
Dim style As Integer
Dim title As String
Dim response As Integer
Dim msg2 As String
msg1 = "阿斯兰 萨拉" + Chr(13) + Chr(13) + _
"ZAFT的王牌机师" + Chr(13) + Chr(13) + _
"JUSTICE驾驶员" + Chr(13) + Chr(13) + _
"队长" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + _
"你觉得阿斯兰强吗？"
style = vbApplicationModal + vbDefaultButton1 + _
vbInformation + vbYesNoCancel
title = 机师评价
response = MsgBox(msg1, style, title)
Select Case response
Case vbYes
msg2 = "你的选择是对的"
Case vbNo
msg2 = "你肯定选错了"
Case vbCancel
msg2 = "你想逃跑吗？"
End Select
MsgBox msg2, "询问结果:"
End Sub

Answer 1

title = 机师评价 改为title = "机师评价"

Answer 2

MsgBox msg2,"询问结果:" 
改为
MsgBox msg2 & " 询问结果:"