CBAfterTrial

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