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

Формулировка задачи:

Здравствуйте. Не подскажите как указать путь. Делаю так приходится выбирать путь к файлу а мне нужно что бы путь к папке при выборе отображалась в text1

CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

Решение задачи: «CommonDialog1 указать путь к папке»

textual
                            Листинг программы 
                        

                            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
                        