Private Sub CommandButton1_Click()
    Dim oFSO As New Scripting.FileSystemObject
    Dim oFolder As Folder
    
    
    For Each oFolder In oFSO.GetFolder("C:\").SubFolders
        If oFolder.Name = " " Then ' между "" вставь Alt^255, будет выглядеть как пробел.
            Debug.Print "#" & oFolder.Name & "#"
        End If
    Next oFolder
    
End Sub