Erreur 5 sous excel

Bonjour,

J'essaie d'ouvrir un fichier EXCEL téléchargé à partir d'internet.
On m'indique l'erreur 5 à cet endroit

 ReDim Preserve arFiles(i)
   <bold> arFiles(i) = Left(myname, Len(myname) - 4)</bold>
    myname = Dir
    i = i + 1
Loop While myname <> ""

Je ne sais plus quoi faire pour débloquer cela...
Pouvez vous m'aider s'il vous plait?

EDIT: Ajout de la coloration syntaxique.