Executar cmd com vários comandos e codificação de caracteres

Boa tarde a todos.
Após uma longa busca na internet e aqui no fórum, não encontrei solução para um problema.

Devido à uma restrição de segurança no servidor da empresa, não posso usar arquivos ".bat", por isso, tive que colocar os códigos do MS-DOS dentro do VBA. Tudo funciona, mas existe um problema relacionado à codificação de caracteres.

O código é esse, e funciona da seguinte maneira:
Shell "cmd /c dir ""C:\Users\MinhaTI"" /s /b > ""C:\Users\MinhaTI\ListaPastas.txt"""

O conteúdo completo do caminho "C:\Users\MinhaTI" é lido e então gerado um arquivo "C:\Users\MinhaTI\ListaPastas.txt" com o texto.

O comando no DOS para codificar e corrigir a acentuação latina é "chcp 65001", e funciona normalmente no arquivo ".bat", mas não consigo fazer funcionar no VBA.

Já tentei inserir o "chcp 65001" em várias partes da linha, concatenando com & e outras tentativas, mas sem sucesso.

Resultado incorreto:
C:\Users\CS382667\MinhaTI\Corporativo - Procedimentos - Comunica‡Æo
C:\Users\CS382667\MinhaTI\Corporativo - Procedimentos - GestÆo da Qualidade
C:\Users\CS382667\MinhaTI\Corporativo - Procedimentos - GestÆo de Projetos


Resultado que deveria ser:
C:\Users\CS382667\MinhaTI\Corporativo - Procedimentos - Comunicação
C:\Users\CS382667\MinhaTI\Corporativo - Procedimentos - Gestão da Qualidade
C:\Users\CS382667\MinhaTI\Corporativo - Procedimentos - Gestão de Projetos


Peço ajuda dos companheiros.

Antecipadamente agradeço,
Marcos

Se a ideia for listar o conteúdo e colocar em um txt, não precisa usar o Access para chamar o comando do DOS. Basta fazer com que o VBA faça o que o comando faria.

Algo assim
https://www.maximoaccess.com/t14255-resolvidoler-diretorios