1. Конвертировать координаты в UTM метрику www.engr.usask.ca/classes/CE/316/notes/CE%20316%20...
2. сделать выбор записей по условию не меньше 500 и не больше 500 по широте и долготе от вашей точки в формате UTM
Set ie = CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "toster.ru"
do until not(ie.Busy) and ie.ReadyState=4
wscript.sleep 10
loop
set html = ie.Document
set div=html.getElementsByClassName("layout__topbar_add-question")
if div.length>0 then
set a=div(0).getElementsByClassName("btn btn_green btn_add-question")
if a.length>0 then
a(0).click()
end if
end if
