Invalid JSON response about vba-json-parser HOT 4 CLOSED

Dim sJSONString As String
Dim vJSON
Dim sState As String
Dim vFlat

' Retrieve JSON response
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "https://api.pons.com/v1/dictionary?l=dees&q=Einheit&in=de", True
    .setRequestHeader "X-Secret", "xxxxxxxx"
    .Send
    Do Until .ReadyState = 4: DoEvents: Loop
    sJSONString = .ResponseText
End With
Debug.Print sJSONString

' Parse JSON response
JSON.Parse sJSONString, vJSON, sState
' Check response validity
Select Case True
    Case sState <> "Object"
        MsgBox "Invalid JSON response"
    Case Not vJSON.Exists("rows")
        MsgBox "JSON contains no rows"
    Case Else
        ' Convert JSON nested rows array to 2D Array and output to worksheet #1
        ThisWorkbook.Sheets(2).Cells.Clear
        Output ThisWorkbook.Sheets(2), vJSON("rows")
        ' Flatten JSON
        JSON.Flatten vJSON, vFlat
        ' Convert to 2D Array and output to worksheet #2
        ThisWorkbook.Sheets(3).Cells.Clear
        Output ThisWorkbook.Sheets(3), vFlat
        MsgBox "Completed"
End Select