Problema no retorno do JSON

[Rodrigo Loureiro Rodrigues]

Estou usando essa função no VB.NET: 

Private Function processResult(ByRef buffer As String, ByRef bufferLen As Integer) As String

   Dim stTextoRetorno As String = ""

   If bufferLen > BUFFER_LENGTH Then
      buffer = New String(" ", bufferLen)
      NFE_UltimoRetorno(libHandler, buffer, bufferLen)
   End If

   stTextoRetorno = Encoding.GetEncoding("ISO-8859-1").GetString(Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding("ISO-8859-1"),Encoding.UTF8.GetEncoding("ISO-8859-8").GetBytes(buffer))).Replace(vbNullChar, "").Trim

   processResult = stTextoRetorno

End Function

Quando há uso, o retorno do JSON acaba vindo desse jeito: 

"{ ""Status"" : { ""CStat"" : 107, ""CUF"" : 35, ""DhRecbto"" : ""2022-05-27T17:36:06.000Z"", ""DhRetorno"" : """", ""Msg"" : ""ServiA?o em OperaA?A?o"", ""TMed"" : 60, ""VerAplic"" : ""SP_NFCE_PL_009_V400"", ""Versao"" : ""4.00"", ""XMotivo"" : ""ServiA?o em OperaA?A?o"", ""XObs"" : """", ""tpAmb"" : ""2"" } }"
 

vindo dessa forma, não estou conseguindo deseralizar, alguém teria uma dica em VB.NET?

 

 

 

[Juliana Tamizou]

Bom dia,

Por favor tente repetir a mesma situação no demo da lib.

At.

[Rodrigo Loureiro Rodrigues]

já resolvi também, pode encerrar esse tópico.

Obrigado!

[Juliomar Marchetti]

33 minutos atrás, Rodrigo Loureiro Rodrigues disse:

já resolvi também, pode encerrar esse tópico.

Obrigado!

como . ajude aos demais colegas postando a solução assim que procurar vai poder usar de referencia

[Rodrigo Loureiro Rodrigues]

Boa tarde!  Usei a idéia da Juliana.  

Converti o código em VB6 para VB.NET e identifiquei que não tinha convertido a função de FromUTF8.

Através da dica da Ju olhei os módulos demos e identifique isso tanto no VB6 quanto no C#

Att.,

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.