Private Sub sevRaster_ButtonClick(bCancel As Boolean)
    PfadLesen
    With sevRaster.FileDlg
        Dim sFile As String
        bCancel = True
        .DefExt = ".rtf"
        .Filter = "Fahrauftrag (FA*.rtf)"
        .FilterIndex = 1
        .Mode = 0
        .OverwritePrompt = True
        .title = "Fahrauftrag ..."
        .InitDir = DateiName
        .File = Me.sevRaster.Text
        sFile = .Show
        If sFile <> "" Then
           If InStr(sFile, "\") > 0 Then
              sevRaster.Text = Mid$(sFile, InStrRev(sFile, "\") + 1)
           Else
              MsgBox "Erfassen Sie bitte einen Text"
              sevRaster.SetFocus
              bCancel = False
           End If
         End If
    End With
End Sub