Почему не копируется из сети?

Sub Pics()
PathNet$ = "\\Solaris\uip\ОБЗОРЫ УИП\"
PathMy$ = "C:\Verstka\Beliakov\"
Num$ = NumTiraz '[COLOR="DarkGreen"]тут запускаем небольшую функцию, которая из текстового файла считывает номер выпуска она сбоев не дает, т.к. работает во многих других процедурах без проблем).[/COLOR]

[COLOR="DarkGreen"]в сл. сроках по названию открытого документа я определяю папку,
откуда надо выуживать картинки
[/COLOR]
PapkaNet$ = Switch(InStr(ActiveDocument.Path, "Mash"), "Машиностроение", _
InStr(ActiveDocument.Path, "Metall"), "Металлургия", _
InStr(ActiveDocument.Path, "Neftehim"), "Нефтехимия", _
InStr(ActiveDocument.Path, "Regiony"), "Регионы", _
InStr(ActiveDocument.Path, "Transp"), "Транспорт")
Dirr$ = PathNet$ & PapkaNet$ & "\" & Num$ & "\"

[COLOR="DarkGreen"]и куда их надо копировать:[/COLOR]
PapkaMy$ = Switch(InStr(ActiveDocument.Path, "Mash"), "Mash", _
InStr(ActiveDocument.Path, "Metall"), "Metall", _
InStr(ActiveDocument.Path, "Neftehim"), "Neftehim", _
InStr(ActiveDocument.Path, "Regiony"), "Regiony", _
InStr(ActiveDocument.Path, "Transp"), "Transport")

Dest$ = PathMy$ & PapkaMy$ & "\" & Num$ & "\"

iFileName$ = Dir(Dirr$ & "*.jpg")
    Do While iFileName$ <> ""
Dd$ = Dirr$ & iFileName$
MsgBox Dd$ [COLOR="DarkGreen"]'проверил путь[/COLOR]
Dde$ = Dest$ & iFileName$
MsgBox Dde$ [COLOR="DarkGreen"]'и второй проверил [/COLOR]
FileCopy Dd$, Dde$ 'тут VBA пишет [COLOR="DarkRed"]путь не найден[/COLOR], хотя пути в MsgBox'ах верные сидят
iFileName = Dir
    Loop
[COLOR="DarkGreen"]  '  а если указать путь без переменных, а напрямую, то все спокойно копируется, например:[/COLOR]
FileCopy "\\Solaris\uip\ОБЗОРЫ УИП\Транспорт\683\Katastrofa.jpg", "C:\Verstka\Beliakov\683\Transport\Katastrofa.jpg"
Exit Sub