Dim msFile As MemoryStream = New IO.MemoryStream(New Byte() {104, 97, _
          108, 108, 111, 32, 119, 101, 108, 116})
        Dim fileName As String = "C:\tmp\test.txt"
        Dim fsReader As BinaryReader = New BinaryReader(msFile)
        MessageBox.Show(fsReader.BaseStream.Length.ToString())
        Dim fsCopyFile As FileStream = New FileStream(fileName, _
          FileMode.OpenOrCreate)
        Dim fsWriter As BinaryWriter = New BinaryWriter(fsCopyFile)
        Dim buffer As Byte() = New Byte(2) {}
        Dim readBytes As Integer = 0
        Do
            readBytes = fsReader.Read(buffer, 0, buffer.Length)
            fsWriter.Write(buffer, 0, readBytes)
        Loop While readBytes > 0
        fsWriter.Close()
        fsReader.Close()
        Dim s As String = New IO.StreamReader(fileName).ReadToEnd()
        MessageBox.Show(s)