ja na to pouzivam
Kód:
Dim RFile As String

If Dir(RFile) = "" Then
 MsgBox "Soubor " & RFile & " nenalezen", vbCritical
End If
jinak zkus pouzit http://www.msdn.com jde tam dost veci najit