各位论坛们前辈老师们您们好
有一个if语句问题，代码如下：
Private Sub Command1_Click()
Dim x, a As String
x = InputBox("请问你是否通过了考试:")
x = CStr(a)
If a = 是 Then
MsgBox CStr(a) & "恭喜你会有惊喜"
ElseIf a = 不是 Then
MsgBox CStr(a) & "很遗憾，没有惊喜"
End If
End Sub

在我输入“是” 的时候就会弹出“恭喜你会有惊喜”
而当我输入“不是”的时候，还会弹出“恭喜你会有惊喜”
不知怎么回事？
另外就是，怎样实现，输入出“字”以外的其他字，就能退出窗体，谢谢！