The following code ensures that the operator provides a reason when overriding a problem.

' Project Script
Private Sub Batch_BeforeOverrideDocumentProblem(ByRef pXDocInfo As CASCADELib.CscXDocInfo, ByRef bCancel As Boolean)

   Dim sReason As String

   sReason = InputBox("Please enter a reason for overriding the problem")

   If sReason = "" Then
      MsgBox "You cannot override a problem without entering a reason", vbCritical
      bCancel= True
   Else
      pXDocInfo.XDocument.DocumentReviewForceValidReason = sReason
   End If

End Sub