A family of Microsoft relational database management systems designed for ease of use.
Try
Declare PtrSafe Function SHGetPathFromIDListA Lib "shell32.dll" ( _
ByVal pidl As LongPtr, ByVal pszPath As String) As Boolean
Declare PtrSafe Function SHBrowseForFolderA Lib "shell32.dll" ( _
lpBrowseInfo As BROWSEINFO) As LongPtr
You also need to change the declaration of the BrowseInfo type:
Type BROWSEINFO
hOwner As LongPtr
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As LongPtr
lParam As LongPtr
iImage As Long
End Type