Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim Categoria As String = colroot.Get("Categoria")
Dim Codigo As Int = colroot.Get("Codigo")
Dim Producto As String = colroot.Get("Producto")
Dim Marca As String = colroot.Get("Marca")
Dim Id As Int = colroot.Get("Id")
Dim Imagen As String = colroot.Get("Imagen")
Dim Barra As Int = colroot.Get("Barra")
Dim Precio As Int = colroot.Get("Precio")
Next