Dim session As Object
        Dim DB As Object
        Dim Doc As Object
        Dim View As Object
        Dim coll As Object
        Dim o As Integer
        Dim i As Integer
        Dim sTmp As Date
 
        session = CreateObject("Notes.NotesSession")
        DB = session.GetDatabase("Notesserver", "testdb.nsf")
        View = DB.GetView("Testansicht")
        Doc = View.GetFirstDocument
 
        coll = View.GetAllDocumentsByKey("Notesserver", True)
 
        'Deklarationen
        '...
 
        o = 0
 
        Do
            o = o + 1
            i = 0
            sTmp = Doc.GetItemValue("starttime")(0)
            'nur wenn die datumswerte übereinstimmen sollen die dokuemnte 
            ' genauer untersucht werden
            'Damit fallen von dem 1GB ca 500MB weg, die ich nicht genauer 
            ' untersuchen muß
            'Trotzdem wächst der ram bedarf in den GB bereich
            If dDatum = sTmp Then
                Do
                    'in jedem Dokument ist das arrayfeld Eventlist mit ca 230 
                    ' einträgen
                    If InStr(1, UCase$(Doc.GetItemValue("eventlist")(i)), _
                      UCase$(TxtName.Text)) Then
                        Dim mem As String
                        mem = Doc.GetItemValue("eventlist")(i)
 
                        If xLeft(Mid$(mem, 22, Len(mem) - 22), 1) = "R" Then
                            'Dokument wegschreiben ....
                        End If
                        Application.DoEvents()
                Loop Until i = UBound(Doc.GetItemValue("eventlist")) + 1
            End If
            Doc = View.GetNextDocument(Doc)
        Loop Until Doc Is Nothing
 
        coll = Nothing
        Doc = Nothing
        View = Nothing
        DB = Nothing
        session = Nothing