VB编程序判断坐标象限

我的一个简单的VB判断象限的问题 怎么会在VB环境下运行出错了？
高手们帮我看一下！！！
If...Then...Else... 的选择结构
平面直角坐标系中，不同象限内点的情况
Private Sub Command1_Click()
 x=Val(Text1.Text)
 y=Val(Text2.Text)
 If x=0 Or y=0 Then Print "该点不在象限内"：Exit Sub
 If x>0 Then If y>0 Then print "在第一象限" Else Print "在第四象限"
  Else If y>0 Then Print "在第二象限" Else print "在第三象限"
End Sub

第二个Else 也就是x<0的情况 说没有对应的If，这到底是个什么原因？

---

谢啦！！！