Dim c As New System.Web.Script.Serialization.JavaScriptSerializer()
Dim obj As Object = c.DeserializeObject("[" & _
          "{'id':1,'name':'Kbyte.Ru','url':'http://kbyte.ru'}," & _
          "{'id':2,'name':'Хитрые инструменты','url':'http://foxtools.ru'}" & _
          "]")
For Each itm As System.Collections.Generic.Dictionary(Of String, Object) In obj
 If MsgBox(String.Format("Хотите перейти на сайт {0} ({1})?", _
     itm("name"), _
     itm("url")), _
     MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
  Process.Start(itm("url"))
 End If
Next