Access - Campos con variable

Hola a todos,

Mi pregunta creo es sencilla pero no se como resolverlo, yo tengo 16 campos y necesito hacer lo siguiente para ahorrar lineas de codigo, porque para los 16 campos se repetira el mismo proceso:

Private Sub BOTON_SUMA_Click()
CONTADOR = 0
Dim i As Variant
Dim Competen_() As field
ReDim Competen_(16)
For i = 1 To 16
If [Competen_(i)] = "BAJA" Then
CONTADOR = CONTADOR + 1
MAX_POSI(i) = 1
End If
If [Competen_(i)] = "MODERADA" Then
CONTADOR = CONTADOR + 3
MAX_POSI(i) = 3
End If
If [Competen_(i)] = "ALTA" Then
CONTADOR = CONTADOR + 5
MAX_POSI(i) = 5
End If
If [Competen_(i)] = "EXTREMA" Then
CONTADOR = CONTADOR + 10
MAX_POSI(i) = 10
End If
Next i

Gracias por la ayuda que me puedan brindar

Carolina

Pues solo tienes que llamar al procedimiento desde el eevento de cada campo