Dim stream As New System.IO.MemoryStream
            Me.txt_Signatur.SaveFile(stream, RichTextBoxStreamType.RichText)
 
            If stream.Length > 0 Then
                Dim data() As Byte = stream.ToArray
                objBenutzer.Signatur = data
 
            End If

Dim data() As Byte = CType(objBenutzer.Signatur, Byte())
                Dim bytesReceived As Long = data.Length
                Dim encoding As ASCIIEncoding = New ASCIIEncoding
                Me.txt_Signatur.Rtf = encoding.GetString(objBenutzer.Signatur, _
                  0, Convert.ToInt32(bytesReceived))

Dim Message As Outlook._MailItem
                Message = oApp.CreateItem(Outlook.OlItemType.olMailItem)
                Message.HTMLBody = Outlook.OlBodyFormat.olFormatRichText
 
Dim SignaturRTF as Object
Dim data() As Byte = CType(objBenutzer.Signatur, Byte())
Dim bytesReceived As Long = data.Length
Dim encoding As ASCIIEncoding = New ASCIIEncoding
SignaturRTF = encoding.GetString(data, 0, Convert.ToInt32(bytesReceived))
 
Dim rtb As New RichTextBox
rtb.Rtf = SignaturRTF

Sector Twelve, or to Infinity and Beyond, whichever comes first.!