Public Sub speichernoffline()
        Dim pfad As String
        Dim datei As String
        Dim dateiname As String
        Dim open As String
 
        pfad = Application.StartupPath
        dateiname = TextBox1.Text & TextBox2.Text & TextBox3.Text & ".rtf"
        datei = "/text/" & dateiname
        open = pfad & datei
 
        Anzeigebereich.SaveFile(open)
    End Sub