Below the code suggested by LS_dev which worked totally:
Private Sub SelectFolder_Click()
Dim objShell As Shell
Had to add the shell references
Dim ssfWINDOWS As Long
Dim objFolder As Folder2
for some reason "Folder" doesn't work
ssfWINDOWS = 36
Set objShell = New Shell
Set objFolder = objShell.BrowseForFolder(0, "Select Folder", 0, "D:\")
If (Not objFolder Is Nothing) Then
FolderName = objFolder.Self.path
End If
Set objShell = Nothing
End Sub