VBA用内置对话框获得文件夹的路径

Sub 文件夹路径()
Dim fp$, obmapp As Object
Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", 0, 0)
If Not obmapp Is Nothing Then
fp = obmapp.Self.Path & ""
Else
Exit Sub
End If
MsgBox fp
End Sub