Error '13' en trimepo de ejecución: No coinciden

Quiero hacer esta consulta SQL con Visual Basic no me da este error de todas las maneras. He probado de cambiar el tipo de variable a todas las posibles pero el error siempre sale.
Esta es la consulta.
Sql = ""
Sql = Sql & "Select Top 500 * From Documents_totals Where "
Sql = Sql & "((InStr([Documents_Totals].[Facturacio_CAB_Campo7] between '" & INtr & "' " And " '" & FNtr & "')0)) "
Dim INtr As Long
Dim FNtr As Long
INtr = Val(txtBuscarin)
FNtr = Val(txtBuscarfin)
¿Alguna ayuda por favor?