다음카카오맵 자동차길찾기 vba를 만들고있는데.. 막힙니다 ㅠ

Sub GetInfo()
Dim start As String
Dim end_ As String
start = "서울 동작구 신대방동 395-3"
end_ = "서울 영등포구 여의도동 2"

Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")

' GET_END_POINT 함수의 기능을 대체하는 코드
Dim start_point As String
Dim end_point As String
start_point = GetEndPoint(start)
end_point = GetEndPoint(end_)

If start_point = "" Or end_point = "" Then
MsgBox "주소를 찾을 수 없습니다."
Exit Sub
End If

' API 요청 보내기
Dim requestUrl As String
requestUrl = "https://dapi.kakao.com/v2/local/search/category.json?category_group_code=PO3&rect=" & start_point & "," & end_point
xmlhttp.Open "GET", requestUrl, False
xmlhttp.setRequestHeader "Authorization", "KakaoAK api입력" ' 다음api
xmlhttp.send

' API 응답 처리
Dim response As String
response = xmlhttp.responseText

' JSON 파싱하여 거리와 소요 시간 정보 가져오기
Dim json As Object
Set json = JsonConverter.ParseJson(response) ' JsonConverter 라이브러리 필요

Dim target As Object
Set target = json("routes")(1)("summary")
Dim distance As Double
Dim sec As Double
Dim taxi_fare As Double
distance = target("distance")
sec = target("duration")
taxi_fare = target("taxi_fare")

Debug.Print "검색완료"
Debug.Print "출발지: " & start & ", 도착지: " & end_
Debug.Print "추천경로 이동 거리: " & distance / 1000 & "km"
Debug.Print "예상 소요시간: " & sec / 60 & "분"
Debug.Print "예상 택시요금: " & taxi_fare & "원"
End Sub

Function GetEndPoint(q As String) As String
' SEARCH_POINT_URL 함수의 기능을 대체하는 코드
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")

Dim requestUrl As String
requestUrl = "https://dapi.kakao.com/v2/local/search/address.json?query=" & q
xmlhttp.Open "GET", requestUrl, False
xmlhttp.setRequestHeader "Authorization", "KakaoAK 다음api" '카카오api입력
xmlhttp.send

Dim response As String
response = xmlhttp.responseText

Dim json As Object
Set json = JsonConverter.ParseJson(response) ' JsonConverter 라이브러리 필요

Dim x As String
Dim y As String
If json("documents").Count > 0 Then ' 응답에 documents 항목이 하나 이상 있을 때만 처리
x = json("documents")(1)("x")
y = json("documents")(1)("y")
GetEndPoint = x & "," & y
Else
GetEndPoint = ""
End If
End Function