Datei vorhanden ?

Ich möchte testen, ob eine bestimmte Excel Datei auf einem bestimmten Pfad exestiert, daraufhin habe ich die Beispiele
in diesem Forum durchsuchtund folgenden Code entdeckt, jedoch funktioniert dieser nicht.

Sub DateiVorhanden()
Dim dName$
dName = "c:\excel\test.xls"
If Dir(dName) <> "" Then
MsgBox dName & " ist vorhanden!"
Else
MsgBox dName & " ist nicht vorhanden!"
End If
End Sub

Leider bekomme ich immer die Meldung "..ist nicht vorhanden "#

Is der Quellcode inkorrekt ?
Um Hilfe wäre ich sehr dankbar

MfG Sven