Formulário Anexos não funciona corretamente em 64 bits

Agradeço ajuda
tenho um formulário anexos com 3 botões, um define o local do anexo, outro abre o anexo e outro elimina o anexo
num pc de 32bits tudo funciona corretamente, já em 64bits e Office 2019 o botão btDefinirLocal não funciona mesmo depois de eu ter colocado no código PtrSafe
o codigo foi copiado em exemplo encontrado neste forum

anexo o exemplo para ajuda

JSilva