Private Sub Application_AnnotationSaved(ByRef pXDoc As CASCADELib.CscXDocument, ByVal AnnIndex As Long)
   Dim sUser As String           'Variable for storing username
   Dim rootFolder As CscXFolder  'Root Folder containing the pXDoc

   'Get the folder containing pXdoc
   Set rootFolder = pXDoc.ParentFolder

   'Find the root (Batch) folder
   Do While rootFolder.IsRootFolder = False
      Set rootFolder = rootFolder.ParentFolder
   Loop

   'Read the KC Operator User ID from Batch XValue
   'In case such XValue is not present on a root Folder (e.g working in Project Builder)
   'get the windows user from enviroment variable
   If rootFolder.XValues.ItemExists("AC_BATCH_USERID") Then
      sUser = pXDoc.XValues.Item("AC_BATCH_USERID")
   Else
      sUser = Environ("USERNAME")
   End If

   'Set the author of the annotation to the collected user
   pXDoc.Annotations.ItemByIndex(AnnIndex).Author = sUser
End Sub