[Resolvido]Não abre o dialogo para busca

Olá,

Tenho esse código em em botão para incluir uma foto, mas parou de funcionar.
Acho que rodava no Office 10 e agora a maquina esta com o Office 16 e não faz nada clicando no botão!

Private Sub Comando102_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hWnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.Foto.Picture = Me.LocalFoto
End If
End Sub


Pode me ajudar? será que precisa alguma referência nova?

Assunto já batido no fórum.

Veja o tópico
https://www.maximoaccess.com/t37220-adaptar-foto-em-formulario-para-windows10#254234

Valeu,
O Office 2016 é do serviço, aqui em casa é o 2010 e funciona normal, até seu exemplo.

Vou tentar no Office 2016 do escritório, se não conseguir vou mudar para o 2010.

Obrigado.

O fórum agradece o retorno. Sucesso.