import json
from datetime import datetime
fps = 30
frameTime = 1.0/fps
with open('Metadata.json') as jsonFile:
    data = json.load(jsonFile)
    with open('driverecorder.srt', 'w') as subFile:
        for entry in data[0]['entries']:
            frame = entry['id']
            timeFrom = datetime.fromtimestamp(( _
              frame-1)*frameTime+82800).strftime('%H:%M:%S,%f')[:-3]
            timeTo   = datetime.fromtimestamp(frame*frameTime+82800).strftime( _
            '%H:%M:%S,%f')[:-3]
            subFile.write('%i\n' % frame)
            subFile.write('%s --> %s\n' % (timeFrom, timeTo))
            subFile.write('%s %s\n' % (entry['date'], entry['time']))
            subFile.write('%.2fkm/h, lat=%.4f, long=%.4f\n\n' % ( _
              entry['velocity'], entry['latitude'], entry['longitude']))

 Private fps As Integer
    Private p2vbU1 As Integer
    Private p2vbU2 As Integer
    Private frame As Integer
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim entry As Object
        fps = 30
        Dim frameTime As Double
        frameTime = 1.0 / fps
        Using p2vbU1 = File.Open("route.json", FileMode.Open)
            Dim data() As List(Of String)
            Using p2vbU2 = File.Open(1, "route.srt", FileMode.Open)
                Dim timeTo As Date
                Dim timeFrom As Date
                For entry = 0 To data(0)("entries").Length - 1
                    frame = entry("id")
                    timeFrom = Mid(CDate("1.1.1970 00:00:00").AddSeconds((frame _
                      - 1) * frameTime + 82800).ToString("%H:%M:%S,%f"), 0 + 1, _
                      Len(CDate("1.1.1970 00:00:00").AddSeconds((frame - 1) * _
                      frameTime + 82800).ToString("%H:%M:%S,%f")) - 3 - 0)
                    timeTo = Mid(CDate("1.1.1970 00:00:00").AddSeconds(frame * _
                    frameTime + 82800).ToString("%H:%M:%S,%f"), 0 + 1, Len( _
                    CDate("1.1.1970 00:00:00").AddSeconds(frame * frameTime + _
                    82800).ToString("%H:%M:%S,%f")) - 3 - 0)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("(" & _
                    "frame).toString" + vbNewLine + ""), 0, 4)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("" + ( _
                    timeFrom).ToString + " --> " + (timeTo).ToString + "" + _
                    vbNewLine + ""), 0, 11)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("" + ( _
                    entry("date")).ToString + " " + (entry("time").ToString + _
                    "" + vbNewLine + "")), 0, 7)
                    p2vbU2.Write(System.Text.Encoding.ASCII.GetBytes("" + ( _
                    entry("velocity").ToString) + "km/h, lat=" + (entry( _
                    "latitude").ToString) + ", long=" + (entry( _
                    "longitude").ToString) + "" + vbNewLine + "" + vbNewLine + _
                    ""), 0, 33)
 
                Next
            End Using
        End Using
    End Sub

Using p2vbU2 = File.Open(1, "route.srt", FileMode.Open)

File.Open(1, "route.srt", FileMode.Open)