question VB 6.0 URGENTE!!!

J'ai fait un bouton qui lie pour ouvrir un repertoire avec le code suivant:

Dim myapp as Object
    myapp = Shell("C:\WINDOWS\explorer.exe App.Path\..\cce final\fiches",3)

Il peut exécuter,mais donne une erreur apres avoir ouvert le fenetre

RUN-TIME ERROR 91：
Object variable pr With block variable not set

qn le comprend pourquoi?
Merci,je suis tres urgent pour cette question

Edit:

Le mieux pour ouvrir un répertoire c'est d'utiliser l'API ShellExecute, dans les déclarations rajoute ca:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5

Et dans ton bouton utilise ça:

ShellExecute Form1.hwnd, "open", app.path & "\..\cce final\fiches", vbNullString, vbNullString, SW_SHOW

>>>> lololol pardon je viens de regarder la msdn et elle dit que l'instruction shell renvoie un double
j'ai voulu aller trop vite lol. mais integer ou long ça marche aussi

franckydeluka: ok pour l'integer, je pensais que c'était un long :)

franckydeluka: ok pour le double alors

Merci bien!!!
Ca m'ai aidé beacoup pour mon programme.