VB Code:
  1. Function FileExist(ByVal strPath As String) As Boolean
  2.     FileExist = Len(Dir(strPath)) <> 0
  3. End Function

If you dont want to put in the full path every time and only check within 1 directory, before you call the function do this:
VB Code:
  1. ChDir "C:\MyDir"