URL path for Folder (Using Excel VBA)

In this link https://answers.microsoft.com/en-us/msoffice/forum/all/url-path-for-folder-excel-vba/3aee38da-46af-4152-aa0c-55b7ecff2e4f

Have an answer that show how to get the URL. I need to do this using VBA code.

Does someone can help me to get the URL path folder using VBA?