Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As Map = parser.NextObject
Dim account As Map = root.Get("account")
Dim status_message As String = account.Get("status_message")
Dim email_verified As String = account.Get("email_verified")
Dim droplet_limit As Int = account.Get("droplet_limit")
Dim floating_ip_limit As Int = account.Get("floating_ip_limit")
Dim uuid As String = account.Get("uuid")
Dim email As String = account.Get("email")
Dim status As String = account.Get("status")