Eksisterer tabellen?

Når min database importerer data fra en .txt fil, kaldes nedenstående funktion, som checker om der er fejl i importeringen (ved at lede efter tabeller hvor "importfejl" er en del af navnet.
Problemet er at koden fejler udfor linien 
InStr(0, TableName, "importfejl")

Hvis jeg placerer markøren over InStr i linien, får jeg beskeden
"InStr(0, TableName, "importfejl") = <invalid procedure call or function>"
Hvad går galt?

Function fExistTable()
Dim db As Database
Dim i As Integer
Dim TableName As String
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
      TableName = Str(db.TableDefs(i).Name)
      If InStr(0, TableName, "importfejl") Then
        MsgBox "Der er opstået en fejl i importen."
      End If
    Next i
    Set db = Nothing
End Function