Очень просто.

Function FileExist(filename As String) As Boolean
        On Error Resume Next
        FileExist = Dir$(filename) <> ""
        If Err.Number <> 0 Then FileExist = False
        On Error GoTo 0
End Function