Исходный код

Option Explicit
Call TDMSComments_Remove_Example("Это тестовый комментарий!")

' Пример поочередно создает и удаляет комментарий у выбранного пользователя
Sub TDMSComments_Remove_Example(commText)
  
  Dim Comments, userDialog, retVal, user, comment

  ' Открываем диалог выбора пользователя
  Set userDialog = ThisApplication.Dialogs.SelectUserDlg
  retVal = userDialog.Show
  
  ' Проверяем был ли выбран пользователь, и диалог закрыт по кнопке OK
  If (userDialog.Users.Count = 0) or (retVal <> True) Then Exit Sub
  
  ' Берем первого выбранного в диалоге пользователя и инициализируем коллекцию его комментариев
  Set user = userDialog.Users(0)
  Set Comments = user.Comments

  ' Проверяем права текущего пользователя
  If (ThisApplication.CurrentUser.Type = tdmSystemAdministrator) Then
    ' В цикле проверяем наличие комментария, если находим, удаляем его
    For Each comment In Comments
      If comment.Text = commText Then
        Comments.Remove(comment)
        MsgBox("Комментарий успешно удалён!")
        Exit Sub
      End If
    Next
    ' Создаем новый комментарий
    Set comment = Comments.Create
    comment.Text = commText
    MsgBox("Комментарий успешно создан!")
  Else
    MsgBox("Чтобы создать или удалить комментарий нужно обладать правами администратора!")
  End If

End Sub