Look like the below statement is expecting to convert the string into list/array of header but the string (content) is not in correct format.
Dim varses = JsonConvert.DeserializeObject(Of Header())(content)
Try wrap the content string with []. see below for example.
Dim content = "[{" _
+ """deviceEnrollmentTransactionID"" : ""5b1354db-60De-4a77-8bb2-cec0357c0cd0_1529483946450""," _
+ """completedOn"":""2018-06-20T0839:14Z""," _
+ """orders"":" _
+ "[{""orderNumber"":""SO_1234"", " _
+ """orderPostStatus"":""abc""," _
+ """orderPostStatusMessage"":""xxx.""" _
+ "}]," _
+ """statusCode"":""ERROR""" _
+ "}]"
Dim varses = JsonConvert.DeserializeObject(Of Header())(content)
Convert a string with multiple header.
Dim content = "[{" _
+ """deviceEnrollmentTransactionID"" : ""5b1354db-xxxx-4444-yyyy-cec0357c0cd0_1529483946450""," _
+ """completedOn"":""2018-07-20T0839:14Z""," _
+ """orders"":" _
+ "[{""orderNumber"":""SO_1234"", " _
+ """orderPostStatus"":""abc""," _
+ """orderPostStatusMessage"":""YYY.""" _
+ "}]," _
+ """statusCode"":""WHAT""" _
+ "},{" _
+ """deviceEnrollmentTransactionID"" : ""5b1354db-60De-4a77-8bb2-cec0357c0cd0_1529483946450""," _
+ """completedOn"":""2018-06-20T0839:14Z""," _
+ """orders"":" _
+ "[{""orderNumber"":""SO_1234"", " _
+ """orderPostStatus"":""abc""," _
+ """orderPostStatusMessage"":""xxx.""" _
+ "}]," _
+ """statusCode"":""ERROR""" _
+ "}]"
Dim varses = JsonConvert.DeserializeObject(Of Header())(content)