Удаление байтов из файла - VB

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

Доброго времени суток. Вообщем имеется файл весом 20 байт(может быть и 100 метров и более). Как удалить(исключить) из него байты с 5 по 10, не загружая файл в память? Или создать его копию, в которой будут отсутствовать указанные байты? P.S: Мелкие файлы отлично грузятся в байтовый массив, и оттуда всё просто сохраняется, но если файл более 10 метров, прога впадает в ступор. Посоветуйте как быть?

Решение задачи: «Удаление байтов из файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Dim buffer() As Byte
    Dim f As Long
    Dim s As Long
    
    s = FileLen("in.bin")
    
    ReDim buffer(1 To s)
    
    f = FreeFile
    Open "in.bin" For Binary As #f
        Get f, , buffer
    Close #f
    
    f = FreeFile
    Open "out.bin" For Binary As #f
        Put f, , buffer
    Close #f