BinaryWriter.Write Method Writes an unsigned byte to the current stream and advances the stream position by one byte.
Imports System Imports System.IO Public Class BinaryRW Shared Sub Main() Dim i As Integer = 0 Dim writeArray(10) As Byte Dim binWriter As New BinaryWriter(New MemoryStream()) Dim binReader As New BinaryReader(binWriter.BaseStream) Try For i = 0 To writeArray.Length - 1 binWriter.Write(i) Next i binReader.BaseStream.Position = 0 For i = 0 To writeArray.Length - 1 If binReader.ReadByte() <> writeArray(i) Then Console.WriteLine("Error writing the data.") Return End If Next i Catch ex As EndOfStreamException Console.WriteLine("Error writing the data: {0}", ex.GetType().Name) End Try End Sub End Class