Case VBA.vbInteger, VBA.vbLong
' Number (use decimals for numbers)
ConvertToJson = VBA.Replace(JsonValue, ",", ".")
Case VBA.vbSingle, VBA.vbDouble, VBA.vbCurrency, VBA.vbDecimal
ConvertToJson = VBA.Replace(VBA.Format(JsonValue, "0.0"), ",", ".")
I'm now lost ...