Public Function VerifyFile(ByVal FileName As String) As Boolean
Dim FileEx As String

FileEx = Dir(FileName)

If FileEx <> "" Then
VerifyFile = True
Else
VerifyFile = False
End If

End Function

Funziona solo per i files.
Per le directory occorre modificare la riga in grassetto con:
FileEx = Dir(FileName, vbDirectory)
In pratica come era prima restituiva true solo se si passava il path di un dir.
Il percorso completo sei costretto a metterlo.
Bye !