Что-то не так с этим GET-запросом xmlhttp?

Question

В настоящее время это то, что у меня есть. Все работает, но кажется, что это отладка в части xmlhttp.send (urlbody). Это дает мне ошибку отладки, и я не могу найти точно проблему в моем коде. Если кто-то из вас сможет точно определить, где он находится, это будет очень ценно. Есть ли место, в которое я должен поместить его, которого сейчас нет?

Sub productIDGrab()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim urlBody As String

Token = Worksheets("Sheet3").Range("A2").Value
Worksheets("Sheet2").Activate
Cells.Range("$A$2").Select
i = 2
Do Until IsEmpty(Cells(i, 1))

   i = i + 1

Biscuit = ActiveCell.Value

URL1 = "https://api.channeladvior.com/v1/Products?access_token=" & Token & "&$filter=Sku eq '" & Biscuit & "' &$select=ID"
xmlhttp.Open "POST", URL1, False

xmlhttp.setRequestHeader "Content-Type", "application/JSON"
xmlhttp.send (urlBody)

productid = xmlhttp.responseText
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = productid
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(1, 0).Select
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Loop

End Sub