private sub Test0(dateiName as string)
    ' PlainText
    Dim textObjekt As New RichTextBox
    textObjekt.text = "TestTestTest" 'Clipboard.GetText(TextDataFormat.text)
    dName = IO.Path.Combine(getAktivesArchivPfad, dOrdner, dateiName & ".txt")
    textObjekt.SaveFile(dName, RichTextBoxStreamType.PlainText)
end sub
 
private sub Test1(dateiName as string)
    ' UnicodeText
    Dim textObjekt As New RichTextBox
    textObjekt.Text = "TextTextText" 'Clipboard.GetText( 
    ' TextDataFormat.UnicodeText)
    dName = IO.Path.Combine(getAktivesArchivPfad, dOrdner, dateiName & ".txt")
    textObjekt.SaveFile(dName, RichTextBoxStreamType.UnicodePlainText)
end sub
 
private sub Test2(dateiName as string)
    ' RTF
    Dim textObjekt As New RichTextBox
    textObjekt.Rtf = Clipboard.GetText(TextDataFormat.Rtf)
    dName = IO.Path.Combine(getAktivesArchivPfad, dOrdner, dateiName & ".rtf")
    textObjekt.SaveFile(dName, RichTextBoxStreamType.RichText)
end sub

    Private Sub Dokument_Speichern(dName)
        Dim endung As String
 
        endung = LCase(IO.Path.GetExtension(dName))
        Try
            If endung = ".txt" Then
                dName = IO.Path.Combine(getAktivesArchivPfad, dOrdner, dName & _
                  ".txt")
                tsc_TextEditor_RTFBox.SaveFile(dName, _
                RichTextBoxStreamType.PlainText)
            Else
                dName = IO.Path.Combine(getAktivesArchivPfad, dOrdner, dName & _
                  ".rtf")
                tsc_TextEditor_RTFBox.SaveFile(dName, _
                RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception
            MsgBox("Text-Dokument:" & Chr(10) & Chr(10) & Chr(34) & dName & Chr( _
              34) & Chr(10) & Chr(10) & "Kann nicht gespeichert werden!")
        End Try
    End Sub