Χμμμ... Τι εννοείς "σωστά";
Αν διαβάσεις μέσω ενός byte buffer τα περιεχόμενα του input stream (ό,τι κι αν είναι αυτό binary ή text) και κατόπιν ορίσεις ένα FileStream και πάνω σε αυτό έναν BinaryWriter δεν θα παίξει;
Πχ
Sub Streamer(ByVal s As Stream, ByVal filename As String)
Dim inputBuffer(10) As Byte
Dim fs As New FileStream(filename, FileMode.Create)
Dim w As New BinaryWriter(fs)
Try
s.Read(inputBuffer, 0, 10)
w.Write(inputBuffer)
Finally
s.Close()
End Try
End Sub
Vir prudens non contra ventum mingit