Invalid JSON response in POST request (VBA))

Question

I keep getting invalid JSON from my code.

The code looks like this. I do not know where the issue is

Sub Getcustoms2()
    Dim JSON As Object
    Dim w