Проверить, попадает ли точка с заданными координатами в квадрат

Sub Main()
Console.WindowWight = 60
Console.WindowHeigth = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim x, y As Single 
 
Console.WriteLine("Введите координату точки по оси x")
x = Console.ReadLine()
Console.WriteLine("Введите координату точки по оси y")
y = Console.ReadLine()
 
If (x >= 0 And x <= 5) And (y >= -5 And y <= 0) Then
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y принадлежит квадрату [0,0, −5,0, −5,5, −0,5]")
Else 
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y не принадлежит квадрату [0,0, −5,0, −5,5, −0,5]")
   
Console.ReadKey()
End Sub

Sub Main()
Console.WindowWidth = 60
Console.WindowHeight = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim x, y As Single 
 
Console.WriteLine("Введите координату точки по оси x")
x = Console.ReadLine()
Console.WriteLine("Введите координату точки по оси y")
y = Console.ReadLine()
 
If (x >= 0 And x <= 5) And (y >= -5 And y <= 0) Then
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y принадлежит квадрату [0,0, 5,0, 5,5, 0,5]")
Else 
   Console.WriteLine("Точка с координатой " & x & " по оси x и с координатой " & y & " по оси y не принадлежит квадрату [0,0, 5,0, 5,5, 0,5]")
End If 
 
Console.ReadKey()
End Sub