That code is rather screwy. If you just want to read Bytes from a file then you don't need a BinaryReader. The FileStream can read Bytes for you. Normally you wouldn't even need that as you can read a whole file into an array like this:
Dim data = IO.File.ReadAllBytes(filePath)
If you want to read into a specific position in an existing array though, you can use the FileStream like this:
Dim data As Byte() 'The array to write the data to.
Dim startPosition As Integer 'The position in the array at which to start writing the data.
Dim filePath As String
Using fs = IO.File.OpenRead(filePath)
fs.Read(data, startPosition, CInt(fs.Length))
End Using