[VB6] Funzione Dir esistente

[teto]

la funzione DIR
così funziona:

If Dir("C:\Documents and Settings\UTENTE\Desktop\Nuova cartella\tmp", vbDirectory) = "" Then
   MsgBox "la dir non esiste"
Else
   MsgBox "la dir esiste"
End If

così no

Dim cartella As String
cartella = Dir("C:\Documents and Settings\UTENTE\Desktop\Nuova cartella\tmp")
If Dir(cartella, vbDirectory) = "" Then
   MsgBox "la dir non esiste"
Else
   MsgBox "la dir esiste"
End If

mi dice sempre ke la cartella c'è
xkè?