自定义函数根据Excel VBA中的列值从JSON API提取数据

我有一个excel工作簿，看起来像这样：

/-------------------------------------\ | Lat | Long | Area | |-------------------------------------| | 5.3 | 103.8 | AREA_NAME | \-------------------------------------/ 

我也有一个JSON API与以下结构的URL：

 https://example.com/api?token=TOKEN&lat=XX&lng=XX 

返回一个具有以下结构的JSON对象：

 { "Area": "AREA_NAME", "OTHERS": "Other_details"} 

我试图实现一个VBA函数，这将帮助我提取AREA_NAME。 但是，我不断收到语法错误。 我不知道我哪里错了。

 Function get_p() Source = Json.Document (Web.Contents("https://example.com/api?token=TOKEN&lat=5.3&lng=103.8")) name = Source[Area] get_p = Name End Function 

我为了开发目的故意硬编码经纬度。 最后，我希望函数接受经​​纬度和参数。 我从PowerQuery Editor获得了该函数的第一行。

我哪里错了？ 如何在VBA中正确执行此操作？ 还是有更简单的方法使用PowerQuery？