Attribute VB_Name = "FileExistCheck"
Option Explicit
Const MODULE_NAME As String = "FileExistCheck"

Function fileexists(ByVal path As String) As Boolean
On Error GoTo fileexists_false

    Dim x As Long
    x = FreeFile

    Open path$ For Input As x
    fileexists = True
    Close x
    GoTo TheEnd:

fileexists_false:
    fileexists = False

TheEnd:
End Function