CBBeforeTrial

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