Sumar o restar con variables

Hola expertos.
Llevo varios días intentando sacar adelante este código, pero no soy capaz.
A ver si podéis echarme una mano.
Tengo un formulario, con un subformulario. En el form pongo dos cuadros de texto. En uno
de ellos hay que ingresar el número que queremos filtrar, y en el otro cuadro hay que
ingresar un número que amplíe la horquilla de resultados después de aplicar el filtro.
Lo explico con un ejemplo:
Si en el cuadro de texto (txt_grande) pongo 60, y en el otro cuadro (txt_acotar) pongo 2,
el resultado de la consulta tiene que mostrar todos los registros que contengan
58,59,60,61 y 62
Para ejecutar el filtro utilizo un botón, y para resetear todo utilizo otro botón.
El problema que tengo es que al ejecutar el filtro, los resultados inferiores a 60 son
correctos, pero por contra, access me devuelve todos los registros que son superiores a 60.
Es decir, para abajo filtra bien, pero para arriba no.
Sé que estoy cometiendo algún error de bulto en el código, pero debido a mi inexperiencia
no soy capaz de dar con el.
Aquí pongo el código completo.
Private Sub btnFiltrar_Click()
Dim sfiltro As Variant
Dim sgrande As Variant
Dim por As Variant
If Not IsNull(Me.txt_acotar) And Me.txt_acotar <> "" Then
por = txt_acotar
Else
por = 0
End If
If Not IsNull(Me.txt_grande) And Me.txt_grande <> "" Then
sgrande = "grande between " & Me.txt_grande - por & " And " & Me.txt_grande + por & ""
Else
sgrande = ""
End If
If sgrande <> "" Then
sfiltro = sgrande
End If
If sfiltro <> "" Then
Me.subfrmRueda.Form.Filter = sfiltro
Me.subfrmRueda.Form.FilterOn = True
Else
Me.subfrmRueda.Form.FilterOn = False
End If
End Sub
Private Sub btnLimpiar_Click()
Me.subfrmRueda.Form.Filter = ""
Me.subfrmRueda.Form.FilterOn = False
Me.txt_grande = Null
Me.txt_acotar = Null
txt_grande.SetFocus
End Sub
Muchas gracias anticipadas