Как добавить массив в json в VB

---

Привет,

У меня возникла проблема с добавлением массива контактов в объект json.

Мой класс-это:

Public Class HistoryClass

    Public Class Contact
        Public Property id As String
        Public Property displayName As String
    End Class

    Public Class History
        Public Property regarding As String
        Public Property startTime As DateTime
        Public Property endTime As DateTime
        Public Property contacts As Contact()
    End Class

End Class

Я может успешно отправить этот JSON:

Dim h As New HistoryClass.History With {.regarding = "test", .startTime = Now, .endTime = Now}

Но как я могу добавить к этому контакты?

Что я уже пробовал:

h.contacts = New List(Of Contact) With {.id = ContactID}

ошибка: id не является членом списка(класса HistoryClass.Контакт

h.contacts = New Contact With {.id = ContactID}

ошибка: значение типа HistoryClass.Контакт не может быть преобразован в HistoryClass.Контакт()

Dim contactColl As Collection = New Collection
       Dim ContactIDlijst As Dictionary(Of String, Contact) = New Dictionary(Of String, Contact)

       ContactIDlijst.Add("id", st)
       contactColl.Add(ContactIDlijst)
       h.contacts = contactVerzameling

ошибка: значение коллекции не может быть преобразовано в HistoryClass.Контакт()

У меня такое чувство, что я что-то упускаю из виду, но что?
Мне просто нужно добавить контакты в h

Спасибо, что уделили мне время.

---