To Stream:
Dim fs As IO.FileStream
fs = New FileStream("File Path", FileMode.Open)
To Byte Array:
* Using FileSystem
Dim readBytes(LengthYouWantToRead - 1) As Byte
fs.Read(readBytes, 0, LengthYouWantToRead)
* Using IO.File
Dim readBytes() As Byte
readBytes = IO.File.ReadAllBytes("File Path")
(FileStream Example)
If you want to read 4096 Bytes from file,
write your code like this:
Dim readBytes(4096 - 1) As Byte
fs.Read(readBytes, 0, 4096)