Изменить данные в файле - VB

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

Привет. Столкнулся с такой задачей. Не знаю, как лучше это сделать... Есть к примеру файл с расширением .mp3 (или другое, не важно) размером 100 кбайт, как можно программно изменить в этом файле каждый 100 байт на 0? Всем спасибо за малейшую информацию и намёки Примерно вот такая заготовка:

                    Листинг программы
                
Private Sub Command1_Click()
 
Dim nac As Integer, nac1 As Integer
 
Path = Dir(App.Path & "\1.mp3")
 
Open App.Path & "\1.mp3" For Binary As #1
    'откpоем файл для чтения
      CF = Input(FileLen(App.Path & "\1.mp3"), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
    
Close #1
 
 ''' обрабатываем файл
 ''''''''''' здесь должна быть процедура обработки файла (каждый сотый байт меняем на ноль)
'''''''''''''''''''''''''''''''
 
Open App.Path & "\1.mp3" For Append As #1
 
    Print #1, CF
    Close #1
 
End Sub

Решение задачи: «Изменить данные в файле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
File$ = App.Path & "\1.mp3" 'Имя файла, который будем портить!
LenFile = FileLen(File$)
MyFile = FreeFile
Open (File$) For Binary As #MyFile
For I = 1 To LenFile Step 100 ' Меняем с 1-го байта или с 100-го? Тoгда I=100
Put #MyFile, I, &H0 ' Пишем в файл 0
Next I
Close #MyFile
End Sub