Dim s As String = $"{"quote":
"If you can\u00e2\u20ac\u2122t resolve your problems in peace, you can\u00e2\u20ac\u2122t solve war. "}"$
Dim jp As JSONParser
jp.Initialize(s)
Dim m As Map = jp.NextObject
Dim value As String = m.Get("quote")
Dim b() As Byte = value.GetBytes("windows-1252")
value = BytesToString(b, 0, b.Length, "utf8")
Log(value)