o se no...

Dim nFile As String

Set fso = CreateObject("Scripting.FileSystemObject")
nFile = "C:\WINDOWS\WIN.COM"
if fso.fileExists(nFile) Then
MsgBox "Il file " & nFile & " esiste"
else
MsgBox "Il file " & nFile & " non esiste!"
End if