CBAfterRecalc

Public Function CBAfterRecalc (aTrial As Long) As Integer
  'the code is here
End Function