[اليوم السابع]

السلام عليكم ورحمه الله وبركاته 
لدي ملف تكست به هذا النص 
","Name":"Ahmed"__","Phone":"5031477"__","Email":"Ahmed.20@gmail.com"__","Age":"26"
","Name":"Ali"__","Phone":"502862"__","Email":"daed.2340@gmail.com"__","Age":"30"
ولدي داتا جريد فيو بها 4 اعمده اريد في كل عمود يظهر شئ من هذا النص فقط بمعني 
عامود الاسم يظهر به احمد عامود السن يظهر به 26 وهكذا 
جربت هذا الكود ولكن لم يضبط معي 

كود :

 DataGridView1.ColumnCount = 4
       DataGridView1.Columns(0).Name = "ID"
       DataGridView1.Columns(1).Name = "NAME"
       DataGridView1.Columns(2).Name = "PHONE"
       DataGridView1.Columns(3).Name = "EMAIL"
       Dim json As String = File.ReadAllText("wtag\TRFG.JSON")
       Dim Name = From t As String In json.Split(vbNewLine) Select _
                System.Text.RegularExpressions.Regex.Match(t, "Name"":""(.+)""").Groups(1).Value
       Dim Age = From t As String In json.Split(vbNewLine) Select _
       System.Text.RegularExpressions.Regex.Match(t, """Age"".""(.+)""__").Groups(1).Value
       Dim Email = From t As String In json.Split(vbNewLine) Select _
       System.Text.RegularExpressions.Regex.Match(t, """Email"".""(.+)""__").Groups(1).Value
       Dim Phone = From t As String In json.Split(vbNewLine) Select _
      System.Text.RegularExpressions.Regex.Match(t, """Phone"".""(.+)""__").Groups(1).Value

       For i As Integer = 0 To Name.Count - 1
           DataGridView1.Rows.Add(Name(i), Age(i), Email(i), Phone(i))
       Next