Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        Dim sr As New StreamReader("D:\test\json.txt")
        Dim line As String = ""
 
        Do While (sr.Peek() >= 0)
 
            line = sr.ReadLine
 
            If line.Contains("id") Then
                Dim strucDaten As New Daten
                strucDaten.ID = GetValue(line)
                line = sr.ReadLine
                strucDaten.Datum = GetValue(line)
                line = sr.ReadLine
                strucDaten.Zeit = GetValue(line)
                line = sr.ReadLine
                strucDaten.Geschwindigkeit = GetValue(line)
                line = sr.ReadLine
                strucDaten.Laenge = GetValue(line)
                line = sr.ReadLine
                strucDaten.Breite = GetValue(line)
                WriteTextboxText(strucDaten)
            End If
        Loop
 
        sr.Close()
 
    End Sub
 
    Private Function GetValue(ByVal ToParse As String) As String
        ToParse = LTrim(ToParse)
        Dim arr() As String = ToParse.Split(" ")
        arr(1) = arr(1).Replace(Chr(34), "")
        arr(1) = arr(1).Replace(",", "")
        Return (arr(1))
    End Function
 
    Private Sub WriteTextboxText(ByVal strucDaten As Daten)
        If TextBox1.Text <> "" Then
            TextBox1.Text = TextBox1.Text & vbCrLf
        End If
        TextBox1.Text = TextBox1.Text & strucDaten.ID & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Datum & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Zeit & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Geschwindigkeit & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Laenge & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Breite & vbCrLf
    End Sub

EALA FREYA FRESENA