Sub Create_JSON_File
Dim JSONGenerator As JSONGenerator
Dim json_str As String
Dim data As List
data.Initialize
json_str = "os_name :Ios"
data.Add(json_str)
json_str = "os_version: 6.4.64"
data.Add(json_str)
JSONGenerator.Initialize2(data)
Msgbox(JSONGenerator.ToPrettyString(2), "")
End Sub