Private Sub B1_Click(ByVal sender As System.

Object, ByVal e As System.EventArgs) Handles B1.Click Dim buffer As String REM Временный буфер для размещения участка текста длиной 12 символов
Dim pointer As Integer REM Указатель на место в тексте, которое помещается в буфер
Dim time As Single REM Смещение времени, заданное в поле T1
Dim a As Integer
Dim d As Single REM Время, извлечённое из файла с субтитрами *.srt (в переменной buffer)
REM Заносим начальные значения
time = Val(T1.Text)
T3.Text = ""
pointer = 0
REM Главный цикл обработки данных
Do
a = T2.Text.Length - pointer REM Вычисляем, какой участок текста скопировать в буфер
If a > 12 Then a = 12
If a < 0 Then a = 0
buffer = T2.Text.Substring(pointer, a)
If a < 12 Then Exit Do REM Выходим из цикла, если участок слишком мал (т. е. достигнут конец текста)
REM Проверка того, что буфере находится время
If buffer.Chars(2) = ":" And buffer.Chars(5) = ":" And buffer.Chars(8) = "," Then
d = Val(buffer.Substring(0, 2)) * 3600 + Val(buffer.Substring(3, 2)) * 60 + _
Val(buffer.Substring(6, 2)) + Val(buffer.Substring(9, 3)) / 1000
REM Смещение времени
d = d + time
If d < 0 Then d = 0
If d > 300000 Then d = 300000
REM Запись в буфер смещённого времени
a = Int(d)
buffer = a \ 36000 & a \ 3600 Mod 10
buffer = buffer & ":" & a \ 600 Mod 6 & a \ 60 Mod 10
buffer = buffer & ":" & a \ 10 Mod 6 & a Mod 10
a = Int((d - Int(d) + 0.0001) * 1000)
buffer = buffer & "," & a \ 100 & a \ 10 Mod 10 & a Mod 10
T3.Text = T3.Text & buffer
pointer = pointer + 12
Else
REM Если в буфере не время, то копируем один символ и идём дальше
T3.Text = T3.Text & buffer.Chars(0)
pointer = pointer + 1
End If
Loop
REM Копируем остаток данных из буфера
T3.Text = T3.Text & buffer
End Sub