Работа с бинарными файлами - VB

Формулировка задачи:

Как реализовать чтение и запись, произвести изменения в файле, окрытого как бинарный, написано в инете много. А вот как стереть или вставить оперделенный байт? Ответа на данный вопрос в интернете я не нашел. Методом проб и ошибок я нашел как удалить ненужный байт. Допустим в какомто файле есть последовательность 123>456>789 Следущий код стирает символы ">" из данной последовательности

Dim im As String
Dim DlinaFajla As Double
 
Private Sub Form_Load()
im = "c:\test.jpg"
End Sub
 
Private Sub Command1_Click()
Dim usr As String * 1
Dim q As String * 1
DlinaFajla = FileLen(im)
MyFile = FreeFile
Open (im) For Binary As #MyFile
For I = 1 To DlinaFajla Step 1 '
Get #MyFile, I, usr
If usr = ">" Then
Put #MyFile, I, q
End If
Next I
Close #MyFile
End Sub

Результатом будет 123456789 Заменить символ ">" на какой либо другой например "!" тоже нет проблем, а вот как сделать чтобы допустим заменить ">" на группу сиволов, например "!!!", или просто после символа ">" добавить "!!!", но так чтобы не затирались соседние символы тоесть результат должен быть следующий 123!!!456!!!789 или 123>!!!456>!!!>789 Заранее благодарен за ответ!

Решение задачи: «Работа с бинарными файлами»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim m As String
simvol = "<<<"
Open "c:\111.jpg" For Binary As #1
m = Space(LOF(1))
Get #1, , m
While Not InStr(1, m, simvol) = 0
s1 = InStr(1, m, simvol)
m = Mid$(m, 1, s1 - 1) & ">" & Mid$(m, s1 + Len(simvol), Len(m) - s1)
Wend
Put #1, 1, m
End Sub
                        