If you have the right library, this code is enough....
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
strPath = .SelectedItems(1)
End If
End With
@Jack, if you read the entire thread you'll find that the problem (highlighted in red) has already been identified and solved. It has nothing to do with code implementation.