'Wenn formatierter RTF-Text
                Dim userInput As New System.IO.MemoryStream
                Dim sw As IO.StreamWriter = New IO.StreamWriter(userInput)
 
                Dim dbString As Byte() = System.Text.Encoding.Default.GetBytes( _
                  dbText)
                Dim count As Integer = 0
                While (count < dbString.Length)
                    userInput.WriteByte(dbString(count))
                    count += 1
                End While
 
                ' Setze Stream-Position auf Start
                userInput.Seek(0, IO.SeekOrigin.Begin)
 
                'Einlesen des Streams in die RichTextBox
                InfoSet.InfoTxt.LoadFile(userInput, _
                  RichTextBoxStreamType.RichText)
 
                'Schreibvorgang des Streems beenden
                sw.Close()