`Function jeff(jt As String, key As String) As variant
Dim jsonObject As Object
Set jsonObject = JsonConverter.ParseJson(jt)
Dim k As Variant
Dim x As Variant
k = jsonObject(key)
jeff = CStr(jsonObject(key))
End Function`
select jeff("{"""a""":1}","a") won't work. Works fine in immediate window
`Function jeff(jt As String, key As String) As variant Dim jsonObject As Object Set jsonObject = JsonConverter.ParseJson(jt) Dim k As Variant Dim x As Variant
End Function`
select jeff("{"""a""":1}","a") won't work. Works fine in immediate window