From 97a022b5c7c439966d2c4d4e985a051eba516546 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=BCrgen?= <juergen.toepper@gmail.com>
Date: Sat, 21 Mar 2026 22:52:24 +0100
Subject: [PATCH] Fix: preserve leading zero numeric strings during JSON
 round-trip

---
 JsonConverter.bas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/JsonConverter.bas b/JsonConverter.bas
index 876b865..a36eb7e 100644
--- a/JsonConverter.bas
+++ b/JsonConverter.bas
@@ -758,7 +758,7 @@ Private Function json_StringIsLargeNumber(json_String As Variant) As Boolean
     json_Length = VBA.Len(json_String)
 
     ' Length with be at least 16 characters and assume will be less than 100 characters
-    If json_Length >= 16 And json_Length <= 100 Then
+	If json_Length >= 16 And json_Length <= 100 And Left(json_String, 1) <> "0" Then
         Dim json_CharCode As String
 
         json_StringIsLargeNumber = True