anteponi "\\" al percorso del file che vuoi cercare

strPathDest = "\\" & NomeMacchina & PathFile

If Dir(strPathDest)<>"" Then
'trovato
Else
'non trovato
End If