Oh... I fixed it. This works!

VB Code:
  1. Private Function FileExists(FullFileName As String) As Boolean

  2. On Error GoTo CheckError

  3. If Len(Dir(FullFileName, vbNormal)) = 0 Then

  4.     FileExsist = False

  5. Else

  6.     FileExisit = True

  7. End If

  8. Exit Function

  9. CheckError:

  10.     FileExists = False

  11. End Function