НАДО ТАК!!!!!!!!!

Set doc = uidoc.Document
    Dim  responsecol As  NotesDocumentCollection'коллекция ответов'
    Dim response As NotesDocument
    Set responsecol = doc.Responses
   
    Set  response =  responsecol.GetFirstDocument
    While Not(response Is Nothing)
        Set response = responsecol.GetNextDocument(response)
ыыыыыыыыыыыыыы
ыыыыыыыыыы
ыыыыы

    Wend