selecionar novo destino (erro na função)

boa noite amigos, sou iniciante adquiri o Maestro 5.0, não estou conseguindo "SELECIONAR NOVO DESTINO" NO FORM "BACKUP" erro: "Dim fd As Office.FileDialog" no codigo abaixo:
Meu office 2007.

Public Function fncLocalizarPasta(strTitulo As String)
Dim fd As Office.FileDialog
On Error GoTo trataErro
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
.ButtonName = "Selecionar"
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewList
.Title = "Selecione a pasta de destino"
.Title = strTítulo
End With
If fd.Show = -1 Then
   fncLocalizarPasta = fd.SelectedItems(1)
End If
sair:
   Exit Function
trataErro:
   fncLocalizarPasta = ""
   Resume sair:
End Function

Olá, seja bem vindo ao Fórum!

Por favor, antes de postar a Duvida, realize uma busca aqui no Fórum, pois muitas vezes a duvida ja foi respondida!

Veja a resposta a sua duvida aqui (Mensagem Nº 02):
https://www.maximoaccess.com/t25056-backup-interativo?highlight=backup