<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<EmployeeInformation>
  <EmployeeInfo>
    <lastName>Bob</lastName>
    <firstName>Barker</firstName>
    <eMail>bob_barker@theGameShow.com</eMail>
    <badgeID>760013224</badgeID>
  </EmployeeInfo>
  <EmployeeInfo>
    <lastName>John</lastName>
    <firstName>Doe</firstName>
    <eMail>jDoe@somewhere.com</eMail>
    <badgeID>0162000037467</badgeID>
  </EmployeeInfo>
</EmployeeInformation>

{
  "lastName": "Barker",
  "firstName": "Bob",
  "eMail": "bob_barker@theGameShow.com",
  "badgeID": "760013224",
}{
  "lastName": "Doe",
  "firstName": "John",
  "eMail": "jDoe@somewhere.com",
  "badgeID": "0162000037467",
}

Dim json As String = ""

empInfo.firstName = "Bob"
empInfo.lastName = "Barker"
empInfo.eMail = "bob_barker@theGameShow.com"
empInfo.badgeID = "760013224"

json = JsonConvert.SerializeObject(empInfo, Formatting.Indented)

empInfo.firstName = "John"
empInfo.lastName = "Doe"
empInfo.eMail = "jDoe@somewhere.com"
empInfo.badgeID = "0162000037467"

json &= JsonConvert.SerializeObject(empInfo, Formatting.Indented)

Dim employees As New List(Of EmployeeInfo)
Dim empInfo As EmployeeInfo

empInfo = New EmployeeInfo()
empInfo.firstName = "Bob"
empInfo.lastName = "Barker"
empInfo.eMail = "bob_barker@theGameShow.com"
empInfo.badgeID = "760013224"
employees.Add(empInfo)

empInfo = New EmployeeInfo()
empInfo.firstName = "John"
empInfo.lastName = "Doe"
empInfo.eMail = "jDoe@somewhere.com"
empInfo.badgeID = "0162000037467"
employees.Add(empInfo)

Dim json As String = JsonConvert.SerializeObject(employees, Formatting.Indented)
Console.WriteLine(json)

[
  {
    "firstName": "Bob",
    "lastName": "Barker",
    "eMail": "bob_barker@theGameShow.com",
    "badgeID": "760013224"
  },
  {
    "firstName": "John",
    "lastName": "Doe",
    "eMail": "jDoe@somewhere.com",
    "badgeID": "0162000037467"
  }
]