Problème suppression fichier PDF dans listbox

        Private Sub Supprimer_Click()
                     If lblNomActuel <> "" Then If Dir(lblNomActuel) <> "" Then Kill lblNomActuel: MsgBox "fichier supprimer avec succès" Else MsgBox "fichier introuvable"
                 Atualizar
          End Sub

<br>

Bonjour à tous,

j'ai une souci avec la suppression d'un fichier format PDF sur la listbox

Kill lblNomActuel -> erreur d'exécution 70 permission refusée

le code est-il incorrect parce j'arrive à le faire fonctionné la suppression les fichiers autres extensions mais pas en pdf?

merci d'avance