Como calcular o quadrante de uma coordenada cartesiana em VB.NET - Desafio de Programação Resolvido em VB.NET

Informe o valor x da coordenada: 12
Informe o valor y da coordenada: -7
A coordenada (12,-7) está no Quarto Quadrante (+,-)

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim x, y As Integer

    ' vamos pedir para o usuário informar as coordenadas
    Console.Write("Informe o valor x da coordenada: ")
    x = Int32.Parse(Console.ReadLine())
    Console.Write("Informe o valor y da coordenada: ")
    y = Int32.Parse(Console.ReadLine())

    ' a coordenada está no primeiro quadrante? 
    If (x > 0) And (y > 0) Then
      Console.WriteLine("A coordenada (" & x & "," &
        y & ") está no Primeiro Quadrante (+,+)")
    ' a coordenada está no segundo quadrante?
    ElseIf (x < 0) And (y > 0) Then
      Console.WriteLine("A coordenada (" & x & "," &
        y & ") está no Segundo Quadrante (-,+)")
    ' a coordenada está no terceiro quadrante?
    ElseIf (x < 0) And (y < 0) Then
      Console.WriteLine("A coordenada (" & x & "," &
        y & ") está no Terceiro Quadrante (-,-)")
    ' a coordenada está no quarto quadrante?
    ElseIf (x > 0) And (y < 0) Then
      Console.WriteLine("A coordenada (" & x & "," &
        y & ") está no Quarto Quadrante (+,-)")
    ' a coordenada está na origem
    Else
      Console.WriteLine("A coordenada (" & x & "," &
        y & ") está na origem")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module