¿Cómo leo una matriz de bytes en bruto desde cualquier archivo ...

 Dim bytes() as Byte

... y luego escribir esa matriz de bytes de nuevo en un nuevo archivo?

Lo necesito como una matriz de bytes para hacer un procesamiento intermedio.

Actualmente estoy usando:

Leer

 Dim fInfo As New FileInfo(dataPath)
 Dim numBytes As Long = fInfo.Length
 Dim fsAs New FileStream(dataPath, FileMode.Open, FileAccess.Read)
 Dim br As New BinaryReader(fs)
 Dim bytes As Byte() = br.ReadBytes(CInt(numBytes))
 br.Close()
 fs.Close()

Escribir

Dim fs As System.IO.FileStream
fs = New System.IO.FileStream(outpath, System.IO.FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()