Принадлежит ли точка М(х, у) кругу с центром в точке А(a, b)

 if (x-a)^2+(y-b)^2 <= r^2 then
    debug.print "Принадлежит"
 else
    debug.print "Не принадлежит"
 end if

Module Module1
 
    Private Property InputBox As String
    Private Property MsgBox As String
 
    Sub Main()
 
        Dim a, b, x, y, r As Integer 'объявляем переменные как целый тип данных
        Console.WriteLine("Приветствую! Это программа вычисляет, принадлежит ли точка M(x,y) кругу с центром в точке Z(a,b) с радиусом, равным R. Пожалуйста, введите ваши данные.")
        Console.WriteLine("Введите x") 'вывести сообщение в консоль
        x = Console.ReadLine 'считать данные с консоли и присвоить их переменной
        Console.WriteLine("Введите y")
        y = Console.ReadLine
        Console.WriteLine("Введите r")
        r = Console.ReadLine
        Console.WriteLine("Введите a")
        a = Console.ReadLine
        Console.WriteLine("Введите b")
        b = Console.ReadLine
        If (x - a) ^ 2 + (y - b) ^ 2 <= r ^ 2 Then 'цикл с условием, определяет находится ли точка в окружности
            Console.WriteLine("принадлежит")
        Else
            Console.WriteLine("не принадлежит")
        End If
        Console.ReadLine()
 
    End Sub
 
End Module