Ошибка во время обработки агентом выбранных документов (документов -ответов) из представления "object variable not set"

while not(responceDoc is Nothing)

Dim CurrSes as NotesSession
Dim CurrDb as NotesDatabase
Dim view as NotesView
Dim unprocessCollection as NotesDocumentCollection
Dim Resps as NotesDocumentCollection
Dim responceDoc as NotesDocument
Dim currDoc as NotesDocument

Sub Initialize
    Dim ErrCount as Integer
    
    Set CurrSes = new NotesSession
    Set CurrDb = CurrSes.CurrentDatabase
    Set unprocessCollection = CurrDb.UnprocessedDocuments
    ErrCount = 0
    Set CurrDoc = unprocessCollection.GetFirstDocument
    while not(CurrDoc is Nothing)
        'Анкеты
        if not CurrDoc.IsResponse then 
            if not(CurrDoc.Learn(0) = "Академический отпуск") then       
                CurrDoc.Learn = "Окончил"
                CurrDoc.Process = "Окончил"
                if not CurrDoc.Save(True,False,True) then
                    ErrCount = ErrCount+1
                end if
                Set Resps = CurrDoc.Responses
                MessageBox "1"
                if Resps.Count >0 then
                    Set responceDoc = Resps.GetFirstDocument
                    MessageBox "2"
                    while not(responceDoc is Nothing)   
                        responceDoc.Learn = "Окончил"
                        MessageBox "3"
                        if not responceDoc.Save(True,False,True) then
                            ErrCount = ErrCount+1
                        end if
                        MessageBox "4"
                        Set responceDoc = Resps.GetNextDocument(responceDoc)
                        MessageBox "5"
                    wend
                    MessageBox "6"
                end if
                'delete Resps
            end if
        end if
 
        Set CurrDoc = view.GetNextDocument(CurrDoc)
    wend
    
    if ErrCount>0 then
        MessageBox "Не сохранено" & ErrCount & " документов" ,4144,"Внимание"
    end if
    
    'Call view.Refresh
End Sub