Steps to reproduce:
Dim jsonWriter As New JSONWriter()
json = json + jsonWriter.BeginObject()
json = json + jsonWriter.Key("decimalvalue")
Dim value As Single
value = 123.45
json = json + jsonWriter.AppendValue(value)
=> "decimalvalue":""
should be "decimalvalue:123.34
JSONWriter.AppendValue in the section:
Case V_INTEGER, V_LONG, V_DOUBLE, V_CURRENCY, V_BYTE
should be:
Case V_INTEGER, V_LONG, V_DOUBLE, V_CURRENCY, V_BYTE, V_SINGLE