Parse JSON object in VB.net using Json.NET

Suppose we have a JSON as under

{
  "Employees": {
    "Employee": [
      {
        "DeptName": "Software",
        "EmployeeName": "Niladri",
	"Gender":"Male"
      },
      {
        "DeptName": "Finance",
        "EmployeeName": "Arina",
	"Gender":"Female"
      },
      {
        "DeptName": "Doctor",
        "EmployeeName": "Babai",
	"Gender":"Female"
      },
      {
        "DeptName": "Article Authors",
        "EmployeeName": "RNA Team",
	"Gender":"Male"
      }
    ]
  }
}

The objective is to parse the JSON in VB.net using Json.NET

Imports Newtonsoft.Json
Imports System.Collections.Generic
Imports System.Dynamic

Namespace ConsoleApplication
	Class Program
		Private Shared Sub Main(args As String())

			Try
				Dim empObj = New List(Of ExpandoObject)()
				Dim source = "{'Employees': {'Employee': [{'DeptName':'Software','EmployeeName':'Niladri','Gender':'Male'},{'DeptName':'Finance','EmployeeName':'Arina','Gender':'Female'},    {'DeptName': 'Doctor','EmployeeName': 'Babai','Gender':'Female'},{'DeptName':'Article Authors','EmployeeName': 'RNA Team','Gender':'Male'}]}}"
				Dim employeeInfo As dynamic = JsonConvert.DeserializeObject(source)

				Dim countRecord = employeeInfo.Employees.Employee.Count

				For i As var = 0 To countRecord - 1
					Dim expandoObj As dynamic = New ExpandoObject()
					expandoObj.EmployeeName = Convert.ToString(employeeInfo.Employees.Employee(i).EmployeeName)
					expandoObj.DeptartmentName = Convert.ToString(employeeInfo.Employees.Employee(i).DeptName)
					expandoObj.Gender = Convert.ToString(employeeInfo.Employees.Employee(i).Gender)
					empObj.Add(expandoObj)
				Next

				'print the result
				For Each e As dynamic In empObj
					Console.WriteLine("Employee {0} who is {1} belongs to Department {2}", e.EmployeeName, e.Gender, e.DeptartmentName)
				Next

				Console.ReadKey()
			Catch ex As Exception
				Throw ex
			End Try
		End Sub
	End Class
End Namespace

We are converting the empJSONSource string into an object by using the JsonConvert.DeserializeObject method, then looping through the record count and preparing the List<ExpandoObject>. Finally by using a Foreach Loop, we are looping through teh collection and displaying the records.