Private Sub MachAustausch()
        Dim s1 As System.IO.FileStream = New System.IO.FileStream( _
          "C:\Eingabedatei.bin", IO.FileMode.Open)
        Dim s2 As System.IO.FileStream = New System.IO.FileStream( _
        "C:\Ausgabedatei.bin", IO.FileMode.Create)
 
        KopiereStreams(s1, New MyByteExchangerStream(s2, New Byte() {1, 2, 3}, _
          New Byte() {255, 254, 253, 252}), 10000)
    End Sub
 
    Private Sub KopiereStreams(ByVal readStream As System.IO.Stream, ByVal _
      writeStream As System.IO.Stream, ByVal pufferGroesse As Integer)
        Dim puffer() As Byte = New Byte(pufferGroesse - 1) {}
        Dim readCount As Integer
        Do
            readCount = readStream.Read(puffer, 0, puffer.Length)
            If readCount > 0 Then writeStream.Write(puffer, 0, readCount)
        Loop While readCount > 0
        readStream.Dispose()
        writeStream.Dispose()
    End Sub