Access - Error Date al actualizar a Access 2016

Hola amigos
Tengo el siguiente código en Access 2007 para comprobar errores de ingreso de fecha, funciona bien, al actualizar a Access 2016 me da error en Date.
¿Alguien me puede indicar dónde está el error?.
Muchas gracias.

Private Sub FECHA_FACT_AfterUpdate()
'PREVIENE UN ERROR EN LA FECHA
If [FechaFactura] < Date - 35 Then
Beep
MsgBox "Revise la fecha, si está bien prosiga", vbExclamation
End If
End Sub

Revisa las referencias, al cambiar entre versiones puede haber ligeras variaciones si se utilizan las 'del otro'.

Muchas gracias.

¿Alguien puede indicarme cómo se implementan las instrucciones "Date", "Left$" y "Right$" de Access 2007, en Access 2016?
Gracias.

If [AgenciaCorto] = "COMTE" Then ' VERIFICA COMTE FACTURA -B-
If Left$([NumeroFactura], 2) <> "B-" And Left$([NumeroFactura], 2) <> "FB" Then
Beep
MsgBox "COMTE VA CON FACTURA -B- !!!", vbExclamation
End If
End If

Esas instrucciones hacen exactamente lo mismo que las originales (sin el '$' al final).

Únicamente condiciona el tipo de dato devuelto forzando un String en lugar de la clásica Variant.

Si no ¿funciona? se deberán revisar las referencias (borrar las que indican 'error') para que tome las correctas de la versión de trabajo

¿Alternativas? .... la función 'InStr' que puede sustituirla (y en ocasiones simplificar) el tratamiento de las cadenas de texto, por ejemplo así:

If Left$([NumeroFactura], 2) <> "B-" ===> IF InStr( NumeroFactura, "B-") =1 Then .....

(SI en NumeroFactura localiza 'B-' en la primera posición ....)

Buenísimo, muchísimas gracias