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