If Len(fSelected) > 0 Then
    While Len(fSelected) > 0                                                 _
        ' Gültiger Dateiname ?
        wrd.Documents.Open fSelected, ReadOnly:=True, Revert:=False            _
        ' Open Datei
        If Err.Number <> 0 Then                                              _
          ' Fehler gewesen
            Call MsgBox("FileOpenError" & Err.Number)                          _
            ' Fehler anzeigen
            If Err.Number = 91 Or Err.Number = 462 Or Err.Number = 5216 Then   _
            ' Word nicht offen oder mit Problem
                Set wrd = Nothing                                              _
                ' Löschen
                Call KundenInitWord                                            _
                ' Neu starten
                wrd.ActivePrinter = ActPrStan                                  _
                ' Standarddrucker einsetzen
            Else
                Call MsgBox("FileOpenError" & vbCr & fSelected & vbCr & _
                  Err.Number & Err.Description & Err.HelpFile)
            End If
        Else
                fSelected = ""
        End If
    Wend