Public Sub ScanSubFolders(ByVal pstrFolder As String)
    Dim objFSO As New Scripting.FileSystemObject
    Dim objSubFolder As Folder
    Dim objFolder As Folder
    
On Error GoTo MethodExit
        
    Set objFolder = objFSO.GetFolder(pstrFolder)
    
    For Each objSubFolder In objFolder.SubFolders
        Debug.Print objSubFolder.Name
        ScanSubFolders objSubFolder.Path
    Next objSubFolder
                    
MethodExit:
        
    If Err.Number <>  0  Then
        MsgBox "Error " & CStr(Err.Number) & " in ScanSubFolders" & vbCr & Err.Description
    End If
End Sub

Option Explicit

Private Function vbBrowseForFolder(Optional strRoot As Variant) As String
    
    Dim myFolder As Shell32.Folder

    With New Shell32.Shell
        Set myFolder = .BrowseForFolder(Form1.hWnd, "Select a folder from the tree",  0 , strRoot)
        If Not myFolder Is Nothing Then vbBrowseForFolder = myFolder.ParentFolder.ParseName(myFolder.Title).Path
   End With
End Function

Private Sub Command1_Click()
   vbBrowseForFolder "c:\temp"
End Sub