Dim W as Short 
      Dim FileIn As New FileInfo("Binaerdatei")
      Dim Reader As New BinaryReader(FileIn.OpenRead)
      While (Reader.PeekChar() > -1)
          W = Reader.ReadByte()
          'Call xyz ... Hier wird W wie auch immer weiter verarbeitet
      End While