How to get a File Browser in VBA

I use this Function in VB.NET to get a user specifiedlocation:

Function GetLocationFromUser() As String
Dim folderBrowser As FolderBrowserDialog = NewFolderBrowserDialog()
folderBrowser.ShowDialog()
Return folderBrowser.SelectedPath + "\"
End Function


What is the equivalent or how do I make this work on VBA?SolidworksApi macros