Dim parser As JSONParser
parser.Initialize(<text>)
Dim jRoot As Map = parser.NextObject
Dim Users As Map = jRoot.Get("Users")
Dim ZqOOX8nUSuVYI9YY9jkub22kWTP2 As Map = Users.Get("ZqOOX8nUSuVYI9YY9jkub22kWTP2")
Dim Active As String = ZqOOX8nUSuVYI9YY9jkub22kWTP2.Get("Active")
Dim Img As String = ZqOOX8nUSuVYI9YY9jkub22kWTP2.Get("Img")
Dim Email As String = ZqOOX8nUSuVYI9YY9jkub22kWTP2.Get("Email")
Dim UserName As String = ZqOOX8nUSuVYI9YY9jkub22kWTP2.Get("UserName")
Dim Country As String = ZqOOX8nUSuVYI9YY9jkub22kWTP2.Get("Country")
Dim ID As String = ZqOOX8nUSuVYI9YY9jkub22kWTP2.Get("ID")
Dim mJozWrOKLqgdUPpZhZfinIxiKy92 As Map = Users.Get("mJozWrOKLqgdUPpZhZfinIxiKy92")
Dim Active As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("Active")
Dim Img As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("Img")
Dim Email As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("Email")
Dim UserName As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("UserName")
Dim videos361534 As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("videos361534")
Dim Country As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("Country")
Dim ID As String = mJozWrOKLqgdUPpZhZfinIxiKy92.Get("ID")
Dim RCYzpiJLRkcUfaPi7Pxu1OxGFTi2 As Map = Users.Get("RCYzpiJLRkcUfaPi7Pxu1OxGFTi2")
Dim Active As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("Active")
Dim Img As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("Img")
Dim Email As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("Email")
Dim UserName As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("UserName")
Dim Country As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("Country")
Dim videos491375 As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("videos491375")
Dim videos748628 As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("videos748628")
Dim ID As String = RCYzpiJLRkcUfaPi7Pxu1OxGFTi2.Get("ID")