With sevSchlusstext.FileDlg
        Dim sFile   As String
        Dim sChar   As String
        sChar = "a"
        bCancel = True
        ' ----------------------------- Schlusstext auswählen
        .DefExt = ".rtf"
        ' .Filter = "Listen (*.rtf)|*.rtf|alle Dateien (*.*)|*.*"
        .Filter = "Schlusstext (*.rtf)|" & sChar & "*.rtf|alle Dateien (" & _
          "*.*)|*.*"
        .FilterIndex = 1
        .Mode = OpenDlg
        .OverwritePrompt = True
        .title = "Schlusstext übernehmen ..."
 
        .InitDir = Dateiname
        .File = Me.sevSchlusstext.Text
 
        ' Dialog manuell aufrufen
        sFile = .Show
        If Len(sFile) > 0 Then
           If InStr(sFile, "\") > 0 Then
              sevSchlusstext.Text = Mid$(sFile, InStrRev(sFile, "\") + 1)
           End If
        End If
    End With