Dim FileName As String = " ... "
Dim Position As Long = 123
Dim buffer As Byte()
 
Dim BR As New BinaryReader(New FileStream(FileName, FileMode.Open))
BR.BaseStream.Position = Position
buffer = BR.ReadBytes(CInt(BR.BaseStream.Length - Position))
BR.Close()