Remplacez cette partie deu code et le problème sera résolu

Private Sub Form_Load()
If Dir("C:Program Filesdiscleanextension.txt") = "" Then
MsgBox "Le fichier EXTENSION.TXT est necessaire au fonctionnement de l'application.", vbExclamation + vbOKOnly, "Avertissement"
End
End If
Form1.Show
Drive1.Drive = Drive1.List(1)
MsgBox "Fermez toutes vos application avant de nettoyer votre disque.", vbExclamation + vbOKOnly, "Avertissement"
End Sub