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

Dim dict As List(Of Dictionary(Of String, String)) = jss.Deserialize(Of List(Of _
  Dictionary(Of String, String)))(Raw)
For Each item As Dictionary(Of String, String) In dict
    Dim sName As String = item("name")
    Dim sUrl As String = item("url")
Next