Cómo usar Newtonsoft.Json para generar un archivo json en vb.net

Cómo usar Newtonsoft.Json para generar un archivo json en vb.net

El código de ejemplo de C# que vi en el documento Newtonsoft.Json es así
Pero no lo convierto del todo en código vb.net

StringBuilder sb = new StringBuilder();
StringWriter sw = new StringWriter(sb);

using (JsonWriter writer = new JsonTextWriter(sw))
{
    writer.Formatting = Formatting.Indented;

    writer.WriteStartObject();
    writer.WritePropertyName("CPU");
    writer.WriteValue("Intel");
    writer.WritePropertyName("PSU");
    writer.WriteValue("500W");
    writer.WritePropertyName("Drives");
    writer.WriteStartArray();
    writer.WriteValue("DVD read/writer");
    writer.WriteComment("(broken)");
    writer.WriteValue("500 gigabyte hard drive");
    writer.WriteValue("200 gigabyte hard drive");
    writer.WriteEnd();
    writer.WriteEndObject();
}

// {
//   "CPU": "Intel",
//   "PSU": "500W",
//   "Drives": [
//     "DVD read/writer"
//     /*(broken)*/,
//     "500 gigabyte hard drive",
//     "200 gigabyte hard drive"
//   ]
// }

¿Cómo puedo transcribirlo en vb.net?
He intentado usar algunas herramientas de código de C# a vb.net, pero todas son incorrectas.

Mostrar la mejor respuesta

No muestra el código completo, por lo que es difícil ayudarlo más. Para instalar y usar Newtonsoft.json, haga lo siguiente: 1: En el menú Proyecto de Visual Studio, abra el administrador de paquetes NuGet e instale "Newtonsoft.Json" en su proyecto.

2: Escriba el siguiente código VB en la parte superior del archivo que está tratando de usar el paquete:

Imports Newtonsoft.Json

El código se traduce de la siguiente manera:

Imports System.IO
Imports System.Text
Imports Newtonsoft.Json
Public Class YourClassName
    Private Sub subname() 
        Dim sb As StringBuilder = New StringBuilder()
        Dim sw As StringWriter = New StringWriter(sb)

        Using writer As JsonWriter = New JsonTextWriter(sw)

            writer.Formatting = Formatting.Indented

            writer.WriteStartObject()
            writer.WritePropertyName("CPU")
            writer.WriteValue("Intel")
            writer.WritePropertyName("PSU")
            writer.WriteValue("500W")
            writer.WritePropertyName("Drives")
            writer.WriteStartArray()
            writer.WriteValue("DVD read/writer")
            writer.WriteComment("(broken)")
            writer.WriteValue("500 gigabyte hard drive")
            writer.WriteValue("200 gigabyte hard drive")
            writer.WriteEnd()
            writer.WriteEndObject()
        End Using

        ' {
        '  "CPU": "Intel",
        '   "PSU": "500W",
        '   "Drives": [
        '     "DVD read/writer"
        '     /*(broken)*/,
        '     "500 gigabyte hard drive",
        '     "200 gigabyte hard drive"
        '   ]
        ' }
    End Sub

Notas: en C# esto se convierte en: using Newtonsoft.Json; Luego, el resto de su código... espero que esto ayude.

// traducir a ' para comentarios.

: no se utilizan en VB.net

La siguiente página es muy útil para convertir código de C# a vb.net y viceversa: https://converter.telerik.com/