CommonDialog1 указать путь к папке

CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

 Fn$=CommonDialog1.FileName
 k%=InstrRev(Fn$,"\")
 Text1.Text =left$(Fn$,k%-1)

Option Explicit
Const BIF_RETURNONLYFSDIRS = &H1&
Const BIF_EDITBOX = &H10&
Const BIF_NEWDIALOGSTYLE = &H40&
Const BIF_USENEWUI = BIF_EDITBOX Or BIF_NEWDIALOGSTYLE
Const BIF_NONEWFOLDERBUTTON = &H200&
Const BIF_SHAREABLE = &H8000&
 
Dim Folder As Object
    
    With CreateObject("Shell.Application")
        Set Folder = .BrowseForFolder(hwnd, "Pick a folder", BIF_RETURNONLYFSDIRS _
                                                          Or BIF_SHAREABLE _
                                                          Or BIF_USENEWUI _
                                                          Or BIF_NEWDIALOGSTYLE _
                                                          Or BIF_NONEWFOLDERBUTTON)
    End With
    
    If Folder Is Nothing Then
       
    Else
        Me.Caption = Folder.Self.Path
        Text1.Text = Me.Caption
    End If