JsonOptions.EscapeSolidus = True does not affect json_key

[andreashohl82]

JsonOptions.EscapeSolidus = True does not affect the json_keys since they are not encoded.
Only the json_values are encoded.

Am I missing something?
If not then I would suggest to modify the function ConvertToJson like this (changes are bold):
...
If json_PrettyPrint Then
json_Converted = vbNewLine & json_Indentation & """" & json_Encode(json_Key) & """: " & json_Converted
Else
json_Converted = """" & json_Encode(json_Key) & """:" & json_Converted
End If
...