Найти количество клеток, по которым проходит окружность

На листочке в клеточку нарисована окружность радиуса R клеток с центром на пересечении двух линий. Необходимо найти количество клеток, по которым проходит окружность (если окружность только касается границы клетки, клетку считать не надо).

Формат входных данных:
Введите число R (R <= 30000).

Формат выходных данных:
Выведите число – искомое количество клеток.

n = 8
R = n ^ 2
otvet = 0
 
currY = 0
For i = n - 1 To 0 Step -1 'по всем иксам от края к центру
  Do While currY ^ 2 + i ^ 2 < R 'поднимаемся вверх пока не выйдем за окружность
    otvet = otvet + 1
    currY = currY + 1
  Loop
  currY = currY - 1
Next i
MsgBox otvet * 4

автор: Toxa33rus