Visual Basic - check box no hace caso

tengo un problema con unos check box de un formulario. A la hora de seleccionar o deseleccionar un check box quiero que antes aparezca un message box diciendo que si está seguro de cambiar el check box, si es que no que no lo cambie. Pero estoy probando con el evento onClick del checkbox y pongas si o no cambia el checkbox.
Bueno, despues de este rollete, os adjunto el codigo a ver si me podeis echar un cable. Gracias!!!

Private Sub chk2vel_Click()
Dim viejo As Boolean
Dim a As String
viejo = rs.Fields("2VELOCIDADES")
a = MsgBox("va a modificar un registro", vbYesNo, "ATENCION")
If a = vbYes Then
With rs
.Edit
.Fields("2VELOCIDADES") = chk2vel.Value
.Fields("TOTAL") = calcula()
.Update
End With
Else
chk2vel.Value = viejo
''Y AKI ME VUELVE A HACER EL EVENTO ONCLICK
End If
End Sub