VB6 file exits , file present

In visual basic 6.0 it is very important to run your software without any error to check your dependencies file is presented in your application folder.  Like your setting text , ini  and data file.
Below given code I am ussing:
Dim FileInQuestion As String
Dim fname As String
fname = App.Path & "\medishop.mdb"
FileInQuestion = Dir(fname)
If FileInQuestion = "" Then
MsgBox "No such file!"
Else
MsgBox "File exists!"
End If