Delete Document Collection With There Responses And Responses On Responses.

I think, that it very useful script, that allow to delete document collection
with there responses and responses on responses.
Sub RmvDocAndResp(dc As NotesDocumentCollection)
' Created by Voronov Igor,Vladivostok, Rus, 2000
Dim dcR As notesDocumentCollection
Dim docR As notesDocument
Set docR = dc.Getfirstdocument
Do
Set dcR = docR.responses
If dcR.count > 0 Then
Call RmvDocAndResp (dcR)
Else
Call dc.RemoveAll(True)
End If
Set docR = dc.GetNextdocument(docR)
Loop Until docR Is Nothing
End Sub