Dim sr As IO.BinaryReader
        sr = New IO.BinaryReader(New IO.FileStream("C:\MeineDatei.dat", _
          IO.FileMode.Open, IO.FileAccess.Read))
 
        Dim einByte As Byte
        Dim mehrBytes As Byte()
 
        einByte = sr.ReadByte
        mehrBytes = sr.ReadBytes(5)
 
        If sr.Read(mehrBytes, 0, 5) < 5 Then
            'Es wurden nicht 5 BYtes gelesen, warscheinlich EndOfStream 
            ' überschritten
        End If
 
        'Close nicht vergessen!
        sr.Close()