Convert JSON to Text

Dim json As String = "{""CPU"": ""Intel"", ""PSU"": ""500W"", ""Drives"": [""DVD read/writer"", ""500 gigabyte hard drive"",""200 gigabyte hard drive""]}"
Dim reader As New JsonTextReader(New StringReader(json))
Do While (reader.Read())
    If reader.Value IsNot Nothing Then Console.Write(reader.Value + " ")
    If reader.TokenType = JsonToken.String Or reader.TokenType = JsonToken.StartArray Then Console.WriteLine()
Loop

Dim json As String = TextBox1.Text

Function JsonToText(json As String) As String
    Dim builder As New StringBuilder
    Dim reader As New JsonTextReader(New StringReader(json))
    Do While (reader.Read())
        If reader.Value IsNot Nothing Then builder.Append(reader.Value).Append(" ")
        If reader.TokenType = JsonToken.String Or reader.TokenType = JsonToken.StartArray Then builder.Append(vbCrLf)
    Loop
    Return builder.ToString()
End Function

textBox2.Text = JsonToText(textBox1.Text)

Dim txt As String = "This a text"
Dim json As String = "[""" & txt & """]"