Dim msg As String
msg = $"{"Command": "Log", "Account": "1234567",
"events":[{"eventnum":"1","timedate":"1538867517986","eventID":"Event Message","eventype":"XYZ
"},
{"eventnum":"2","timedate":"1538867516716","eventID":"Event Message","eventype":"Test
"},
{"eventnum":"3","timedate":"1538866960068","eventID":"Event Message","eventype":"Test2
"}]}"$
Dim parser As JSONParser
parser.Initialize(msg)
Dim root As Map = parser.NextObject
Dim Account As String = root.Get("Account")
Dim Command As String = root.Get("Command")
Dim events As List = root.Get("events")
For Each colevents As Map In events
Dim eventype As String = colevents.Get("eventype")
Dim eventID As String = colevents.Get("eventID")
Dim timedate As String = colevents.Get("timedate")
Dim eventnum As String = colevents.Get("eventnum")
Next