Dim X$

X$ = Dir$("C:\windows\calc.exe")
If X$ = "" Then
MsgBox "Filen finns inte.!", vbExclamation, "Filen finns ej..."
Else
MsgBox "Filen existerar.!!", vbExclamation, "Filen hittades"
End If