VB编程序判断坐标象限解决办法

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，这到底是个什么原因？

[解决办法]

VB code

Private Sub Command1_Click()    x = Val(Text1.Text)    y = Val(Text2.Text)    If x = 0 Or y = 0 Then        Print "该点不在象限内"        Exit Sub    End If    If x > 0 Then        If y > 0 Then            Print "在第一象限"        Else            Print "在第四象限"        End If    Else        If y > 0 Then            Print "在第二象限"        Else            Print "在第三象限"        End If    End IfEnd Sub