Dim ReturnStream As New MemoryStream
            '...
            'ReturnStream wird gefüllt
            '...
            ReturnStream.Seek(0, SeekOrigin.Begin)
            'ReturnStream.Length = 4
            Dim br As New BinaryReader(ReturnStream)
            'br.length = 4
            Dim b As Byte = br.ReadByte()
            'b = 114
            Dim str As String = System.Text.Encoding.Default.GetString( _
              br.ReadBytes(b))
            'str = "est", sollte aber "Test" sein.