[Resolvido]Sem entender erros de um trecho de código

Boa tarde, senhores.

Estou sem entender um tracho de um código usado em outros módulos sem problema algum, mas em um ocorre um erro... Explico.

1 - o código (algo que todos conhecem

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Selecionar a foto do(a) funcionário(a)"
.Filters.Clear
.Filters.Add "JPEGs", "*.jpg"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = "C:\"
If .Show = True Then
FileName = Trim(.SelectedItems.Item(1))
Set fso = CreateObject("Scripting.FileSystemObject")
ORIGEM = FileName
DESTINO = CurrentProject.path & "\FUNCIONARIOS\" & [NOME] & "-" & [Lista339] & ".jpg"
fso.CopyFile ORIGEM, DESTINO, True
Set fso = Nothing
[Foto1] = DESTINO
[Bot_Foto1].Visible = False
[Imagem_Foto1].Visible = True
[Bot_Foto2].Visible = True
Me![Imagem_Foto1].Picture = [Foto1]
End If
End With

2 - O problema:

Se busco o arquivo de foto no diretório do projeto ou em subpastas pequenas tipo C:\PROJETO TEENS\TMP\TMP\TMP (criei essas pastas para teste), funciona perfeito, mas se busco o arquivo em pastas que gerem um nome de caminho maior tipo C:\PROJETO TEENS\FUNCIONARIOS\FOTOS, não funciona e acusa o erro -2147352567.

Não consigo entender ou a minha mente é muito pequena.

Fico no aguardo.

Boa noite,

Em pesquisas, verifiquei que o erro se dava (não entendo porque) com a variável "ORIGEM", que não sei porque não suportava textos longos.

O erro -2147352567 se reporta as isso. Um campo que não cabe ou não suporta uma certa quantidade.