Mover, copiar, deletar arquivos usando caractéres CORINGA

Prezados,     aqui no fórum encontrei um excelente exemplo sobre manipulação de arquivos (mestre JPaulo https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos)

Só que preciso fazer isso usando caracteres coringas, em uma ou mais pastas. Exemplos:

'Qualquer arquivo com a extensão XLS
'Mover  ..\*.xls

'Qualquer arquivo que tenha qualquer caractere nas duas primeiras posições,

'seguido "2021" da 3ª a 6ª posição, e qualquer outra coisa após, e qualquer extensão.
'Mover  ..\??2021*.* 

Os mesmos coringas seriam também utilizados em deletar, ou copiar, etc     Banco anexado (formulário do cenário)

Poderia mover usando o seguinte comando:


Origem = "C:\Origem\"
Destino = "C:\Destino\"

ArquivoMover = Dir(Origem & "*.xls", vbArchive)

Do While ArquivoMover <> ""
Name Origem & ArquivoMover As Destino & ArquivoMover
ArquivoMover = Dir()
Loop

Acabei não testando, pois neste computador estou sem o Access, mas deve funcionar.