如下，要解析的字符串：

JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
       

利用NuGet包管理器控制台安装好newtonsoft.json.输入命令：Install-Package Newtonsoft.Json

我建立了一个控制台程序：

运行结果：

代码：

•  
  Module Module1
•  
  Sub Main()
•  
  Dim js As JObject
•  
  Dim JsonStr As String
•  
   
•  
  JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
•  
  js = JObject.Parse(JsonStr)
•  
  MsgBox(js.SelectToken("dataa").SelectToken("ppiUsername"))
•  
  End Sub
•  
   
•  
  End Module

使用scriptcontrol的话也是一样。添加引用到解决方案：

结果：