Определение координатной четверти на VBA

Задача

Создать макрос, который определял бы координатную четверть по введенным координатам точки

Теория

Если точка имеет две положительные координаты (x и y) , то она принадлежит первой четверти.
Если координата x отрицательна, а y положительна, то точка находится во второй четверти.
Если точка имеет две отрицательные координаты (x и y) , то точка принадлежит третьей координатной четверти.
Если x положительна, а y отрицательна, то точка находится в IV четверти.
Если координаты нулевые, то точка совпадает с центром координат.
Если координата x не равна 0, а y равна 0, то точка дежит на оси X.
Если координата y не равна 0, а x равна 0, то точка дежит на оси Y.

Реализация

	
Sub задача1()
  Dim v_intX As Integer
  Dim v_intY As Integer
  v_intX = Range("B2").Value
  v_intY = Range("B3").Value
    If (v_intX > 0 And v_intY > 0) Then MsgBox ("первая четверть")
    If (v_intX < 0 And v_intY > 0) Then MsgBox ("вторая четверть")
    If (v_intX < 0 And v_intY < 0) Then MsgBox ("третья четверть")
    If (v_intX > 0 And v_intY < 0) Then MsgBox ("четвертая четверть")
    If (v_intX = 0 And v_intY <> 0) Then MsgBox ("бежит на оси Y")
    If (v_intX <> 0 And v_intY = 0) Then MsgBox ("бежит на оси X")
    If (v_intX = 0 And v_intY = 0) Then MsgBox ("центр координат")
End Sub

Задача - Определение координатной четверти на VBA