Запись в файл кусками

---

Привет
Я пытаюсь записать байты в файл кусками размера chunkSize. Это очень медленно с большими файлами, например 9 МБ, и мне нужно найти способ сделать это намного быстрее.

For i As Integer = 0 To If(remainder = 0, 0, 1) + ((contents.Length - remainder) / blockSize)
    If contents.Length < i * blockSize Then
        IO.File.WriteAllBytes(outputPath, contents.Skip(i * blockSize).Take(blockSize).ToArray())
    Else
        IO.File.WriteAllBytes(outputPath, contents.Skip(i * blockSize).Take(contents.Length - (i * blockSize)).ToArray())
    End If
Next

Идея состоит в том, чтобы либо записать размер блока (4096) байт, либо то, что осталось в конце, если количество байтов не является идеальным кратным размеру блока.

Что я уже пробовал:

Различные формы этой функции

---