File.OpenRead ти връща FileStream. Върху него си правиш един BinaryReader, а пък той си има метод ReadBytes(). Нещо като:

        Dim stream As Stream

        stream = File.OpenRead(filename)



        Dim reader As New BinaryReader(stream)

        Dim block As Byte()



        Do

            block = reader.ReadBytes(256)

            ' тук си обработваш текущия блок

        Loop While block.Length = 256