Absolutely you can append a new object. In the example below, I also output the result to a string. To be able to do that you have to change the ls.snapps.JSONReader library to use the ls.snapps.JSONWrapperConverters instead of the JSONObject and JSONArray libraries.
Here is some example code:
Dim jsonReader As JSONReader
Dim sQuestion As String
Dim sReply As String
Dim jsonObject As JSONObject
Dim jsonNew As JSONObject
Dim jsonQuestion As JSONObject
Dim sResult As String
<br/>
Set jsonReader = New JSONReader
sQuestion = |{"question": [{"dt": "09-6-30","user": "firstName lastName","sub": "subject","body": "bodytext","img": ""}]}|
Set jsonObject = jsonReader.Parse(sQuestion)
<br/>
Set jsonQuestion = jsonObject.Items("question").Items(0)
<br/>
sReply = |{"dt": "09-6-30","user": "firstName lastName","sub": "subject","body": "body","img": ""}|
Set jsonNew = jsonReader.Parse(sReply)
<br/>
Call jsonQuestion.AddItem("reply", jsonNew)
sResult = jsonQuestion.ToJSON
Hope that helps.
-Troy