.
JoseR, para viabilizar/agilizar uma possível solução, posta o arquivo (ou um exemplo idêntico) no http://www.sendspace.com ... depois cola o link aqui !!!
.

https://www.sendspace.com/file/tq3hae
Não sei se fiz certo (sou leigo no assunto)

Obrigado, mas ja consegui resolver.

Private Sub cmd_animal_Foto_Click()
fotocli = Application.GetOpenFilename(filefilter:="Picture file, *jpeg")
If fotocli <> "" Then
On Error Resume Next
  (incluir Imagem).Picture = LoadPicture(fotocli)
      
With Principal
   (Incluir TXT).Value = fotocli
   
End With
End If
End Sub