Исходный текст

Option Explicit
Call CheckComments()


'=====================================================================
' Проверить, есть ли у выбранного пользователя комментарии
'=====================================================================
Sub CheckComments()

        Dim SelUserDlg, RetVal, str, user, CommCol, Comment

        ' Открыть диалог выбора пользователя
        Set SelUserDlg = ThisApplication.Dialogs.SelectUserDlg
        RetVal = SelUserDlg.Show
        
        'Если диалог отменен или пользователь не выбран, закончить работу
        If (SelUserDlg.Users.Count=0) Or (RetVal <> TRUE) Then Exit Sub
        
        'Получить коллекцию комментариев пользователя
        Set user = SelUserDlg.Users(0)
        Set CommCol = user.Comments
        
        If CommCol.Count > 0 Then
                
                'Показать сообщение с текстом комментария и запросить, надо ли его удалять        
                For Each Comment In CommCol 
                        str = CommCol.Index(Comment)+1 & ") " & Comment.Text & Chr(13) & _
                                        "Удалить комментарий?"
                        RetVal = MsgBox(str, vbQuestion + vbYesNo)
                        
                        'Удалить комментарий навсегда, если пользователь попросил
                        If RetVal <> vbNo Then Comment.Erase
                Next
                
        Else
                
                MsgBox "У пользователя " & user.Description & " комментариев нет.", _
                vbInformation    , "Комментарии пользователя"
        End If
        
End Sub
'=====================================================================