Basic FileExists() function
Code:
Public Function FileExists(ByVal sFileName As String) As Boolean
  FileExists = (Len(Dir$(sFileName)) > 0)
End Function