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)