Access - Problemilla con un FOR

Hola Amigos,

Tengo un problemita con esete codigo y es que no alamacena nada en el campo, me podrian ayudar con esto por fis
:
IMC_, IMPORTANCIA_, MAX_OBT_: son campos de una tabla de mi base de datos y todos van del 1 al 16

Dim IMC_() As Integer
ReDim IMC_(16)
Dim IMPORTANCIA_() As Integer
ReDim IMC_(16)
Dim MAX_OBT_() As Integer
ReDim MAX_OBT_(16)

For I = 1 To 16
If IMC_(I) = 3 Then
If IMPORTANCIA_(I) = "EXTREMA" Then
MAX_OBT_(I) = 1
End If
End If
If IMC_(I) = 4 Then
If IMPORTANCIA_(I) = "ALTA" Then
MAX_OBT_(I) = 1
Else
If IMPORTANCIA_(I) = "EXTREMA" Then
MAX_OBT_(I) = 2
End If
End If
End If
Next I

Gracias

a ver prueba con me.MAX_OBT_(I)

no se, no se me ocurre otra cosa

Espero que te sirva

Saludos!!!!!!!!