以下VB程序错在哪？怎么改？

Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
If x = 0 Or y = 0 Then Print "该点在坐标轴上"
If X > 0 Then
If Y > 0 Then
Print "在第一象限"
Else
Print "在第四象限"
End If
Else
If Y > 0 Then
Print "在第二象限"
Else
Print "在第三象限"
End If
End If
End Sub

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 And y > 0 Then

Print "该点位于第 一象限"
Else if x> 0 Then
Print "该点位于第四象限"
else if y > 0 Then
Print "该点位于第二象限"
Else

Print "该点位于第三象限"

End If
End If
End If

End Sub