From 5bd8d323411543606c616dc6dcc836f99acb5ddf Mon Sep 17 00:00:00 2001
From: "MD\\roman" <roman.trojan@msgis.com>
Date: Wed, 8 Aug 2018 17:33:55 +0200
Subject: [PATCH] rt: Keep ASCII Codes (included extended) i.e. 32-126 &
 128-255

---
 JsonConverter.bas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/JsonConverter.bas b/JsonConverter.bas
index 3810579..b20830c 100644
--- a/JsonConverter.bas
+++ b/JsonConverter.bas
@@ -725,8 +725,10 @@ Private Function json_Encode(ByVal json_Text As Variant) As String
         Case 9
             ' tab -> 9 -> \t
             json_Char = "\t"
-        Case 0 To 31, 127 To 65535
+        Case 0 To 31, 127, 256 To 65535
             ' Non-ascii characters -> convert to 4-digit hex
+            ' Keep ASCII Codes (included extended) i.e. 32-126 & 128-255
+            ' http://www.asciitable.com/
             json_Char = "\u" & VBA.Right$("0000" & VBA.Hex$(json_AscCode), 4)
         End Select