Dim Raw As String = Read.ReadToEnd()
Dim jss As JavaScriptSerializer = New JavaScriptSerializer With {
     .MaxJsonLength = Int32.MaxValue
}
Dim dict As List(Of Object) = jss.Deserialize(Of List(Of Object))(Raw)
 
     For Each item As Object In dict
          Dim sName As String = item("name").ToString
          Dim sUrl As String = item("url").ToString
     Next