Olhei o artigo que vc informou e execute igual, porem.
estou usando o Office 2013
deu esse ero no código abaixo
Private Sub btCaminho_Click() Dim strPasta As String strPasta = fncLocalizarPasta("Selecione a pasta para o Backup...") If strPasta = "" Then Exit Sub Me!txDestino = fncDestinoBackup(strPasta) End Sub