Problema con access no devuelve los valores después de modificar datos en formulario

Hola que tal tengo este código

Private Sub visual_bbb1_LostFocus()
Dim miMatriz(3)
Dim vMax As Long, vMin As Long
Dim i As Byte
miMatriz(1) = Me.[L1].Value
miMatriz(2) = Me.[L2].Value
miMatriz(3) = Me.[L3].Value
'Cojo el primer valor
vMax = miMatriz(1)
vMin = vMax
'Calculo el máximo
For i = 2 To 3
If miMatriz(i) > vMax Then
vMax = miMatriz(i)
End If
Next i
'Calculo el mínimo
For i = 2 To 3
If miMatriz(i) < vMin Then
vMin = miMatriz(i)
End If
Next i
Me.[val_max_1].Value = vMax
Me.[val_min_1].Value = vMin
End Sub

que devia darme al valor mínimo y el máximo de tres números, pero cuando lo hice en la primer prueba al introducir los datos desde el formulario bien lo hizo pero cuando cambie los datos del formulario ya no mostró nada

esto es para realizar varios registros pero aligual solo lo hace hasta el registro 3 en el 4 ya no hace nada quiero saber si esta mal esto o que pasa

o que podría hacer

Gracias