Private Sub cmdChangePath_Click()
Dim fd As FileDialog
Dim I As Integer
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False 'Allow only one selection
.Title = "Select Folder"
.InitialFileName = ""
If .Show = -1 Then
MsgBox .SelectedItems(1)
End If
End With
Set fd = Nothing
End Sub