Ciao a tutti!!
Ho un problema con CommonDialog.InitDir

Allora ho un pulsante che mi apre una finestra di dialogo partendo dalla directory specificata con InitDir. Se l'utente vuole cambiare directory puo' farlo, ma quando preme OK faccio apparire una MsgBox che chiede se e' sicuro. Nel caso l'utente risponda di no, allora la sub termina.
Fin qui funziona, ma se ora l'utente preme ancora il pulsante la directory di partenza non e' piu' quella iniziale specificata in InitDir, ma l'ultima scelta dall'utente e poi scartata... Perche'???

Vi copio il codice che ho scritto:

Private Sub cmdTableName_Click()

Debug.Print DBFPath 'DBFPATH e' una variabile che contiene
'il percorso iniziale

FileName = ""
CommonDialog1.InitDir = DBFPath

Debug.Print CommonDialog1.InitDir

CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
FileTitle = CommonDialog1.FileTitle

If (FileName <> "") Then 'se non e' stato premuto Cancel
x = MsgBox("Sei sicuro di voler modificare il nome del database?", vbYesNo)
Debug.Print x
If (x = 6) Then
'istruzioni nel caso l'utente accetti le modifiche
LenFileName = Len(FileName)
LenFileTitle = Len(FileTitle)
TableName = Left(FileTitle, LenFileTitle - 4)
LenFileTitle = Len(FileTitle) + 1
LenPath = LenFileName - LenFileTitle
DBFPath = Left(FileName, LenPath)
txtTableName.Text = DBFPath + "\" + TableName + ".dbf"
Else

Debug.Print DBFPath

FileName = ""
Exit Sub
End If
End If

End Sub

Grazie a tutti!!