[
 {
  "Name":"HerbiesRoute",
  "entries":
   [
    {
     "id": 1,
     "date": "11.09.2020",
     "time": "09:39:10",
     "velocity": 0.00,
     "latitude": 48.1931,
     "longitude": 11.6083
    },
    {
     "id": 2,
     "date": "11.09.2020",
     "time": "09:39:10",
     "velocity": 0.00,
     "latitude": 48.1931,
     "longitude": 11.6083
    },
    {
     "id": 3,
     "date": "11.09.2020",
     "time": "09:39:10",
     "velocity": 0.00,
     "latitude": 48.1931,
     "longitude": 11.6083
    }
   ]
 }
]

1
00:00:00,000 --> 00:00:00,033
11.09.2020 09:39:10
0.00km/h, lat=48.1931, long=11.6083
 
2
00:00:00,033 --> 00:00:00,066
11.09.2020 09:39:10
0.00km/h, lat=48.1931, long=11.6083
 
3
00:00:00,066 --> 00:00:00,100
11.09.2020 09:39:10
0.00km/h, lat=48.1931, long=11.6083

Imports Newtonsoft.Json
Imports System.IO
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim ofd1 As New OpenFileDialog
 
        ofd1.ShowDialog()
 
        Dim json As String = File.ReadAllText(ofd1.FileName)
        TextBox1.Text = json
 
    End Sub
End Class