Casillas de verificación

Hola, mi inquietud es, tengo un formulario el cual deseo generar filtros, y para eso quiero hacerlo por casillas de verificación, ejemplo, salud, pensión y riesgo entonces quisiera que estos campos estuvieran en casillas de verificación y que si selecciono salud y riesgo, poder generar un filtro con solo esos datos que escogí, acá hice este código pero veo que es muy largo de pronto si conocen una forma de reducirlo ya que si son 8 o mas datos para filtrar el código seria bastante largo.

Private Sub Comando40_Click()
Dim txtFiltro As String
If Me.Verificación24 And Me.Verificación26 And Me.Verificación30 Then
txtFiltro = "salud= -1" & "And pensión= -1" & "And riesgo= -1"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
Else
If Me.Verificación24 And Me.Verificación26 Then
txtFiltro = "salud= -1" & "And pensión= -1" & "And riesgo= 0"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
Else
If Me.Verificación24 And Me.Verificación30 Then
txtFiltro = "salud= -1" & "And pensión= 0" & "And riesgo= -1"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
Else
If Me.Verificación26 And Me.Verificación30 Then
txtFiltro = "salud= 0" & "And pensión= -1" & "And riesgo= -1"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
Else
If Me.Verificación24 = True Then
txtFiltro = "salud= -1" & "And pensión= 0" & "And riesgo= 0"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
End If
If Me.Verificación26 = True Then
txtFiltro = "salud= 0" & "And pensión= -1" & "And riesgo= 0"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
End If
If Me.Verificación30 = True Then
txtFiltro = "salud= 0" & "And pensión= 0" & "And riesgo= -1"
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
End If
End If
End If
End If
End If
DoCmd.OpenForm "Tabla2", acFormDS, , txtFiltro
End Sub