Also, it looks line you perhaps deleted a sensitive line from your json? That's fine, but doing so left a dangling comma in the lastModifiedTime line, which makes this json invalid.
Try removing that comma and then parse the json with the link from @BillMeyer - that'll work.
Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As Map = parser.NextObject
Dim lastModifiedTime As String = root.Get("lastModifiedTime")
Dim createTime As String = root.Get("createTime")
Dim location As String = root.Get("location")
Dim services As List = root.Get("services")
For Each colservices As Map In services
Dim serviceType As String = colservices.Get("serviceType")
Dim data As Map = colservices.Get("data")
Dim Smoke As Int = data.Get("Smoke")
Dim eventTime As String = colservices.Get("eventTime")
Dim serviceInfo As String = colservices.Get("serviceInfo")
Dim serviceId As String = colservices.Get("serviceId")
Next
Dim nodeType As String = root.Get("nodeType")
Dim connectionInfo As Map = root.Get("connectionInfo")
Dim protocolType As String = connectionInfo.Get("protocolType")
Dim deviceId As String = root.Get("deviceId")
Dim devGroupIds As List = root.Get("devGroupIds")
Dim gatewayId As String = root.Get("gatewayId")
I think you're wrong there. The json looks fine, as far as I can tell. I double checked with https://jsonlint.com/, which also says it's a valid json. Erels parser likes it also.
And this is me taking the exact same json and running it through the validator at https://jsonlint.com/. Validates just fine.
I can't help you more unless you start providing concrete error messages. Also, run your json through these two services and post screenshots showing the errors.
This json is not the same as the one you posted in your first post.
The one in the first post needs changes, the one in the qouted post is fine and should parse without problems.
I think you're wrong there. The json looks fine, as far as I can tell. I double checked with https://jsonlint.com/, which also says it's a valid json. Erels parser likes it also.
I think the string is too long, so I deleted part of it in paste 1. Paste 6 is the complete code. Maybe my browser has problems, so there is no response with http://basic4ppc.com:51042/json/index.html.