NewtonsoftInVB.vb

Imports Newtonsoft.Json

Module Program
    Sub Main(args As String())

        Dim numbers = New Integer() {1, 2, 4, 8}
        Dim serializeResult = JsonConvert.SerializeObject(numbers)
        Console.WriteLine(serializeResult)

        Console.ReadKey()

    End Sub
End Module