Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim view As NotesView Dim nextdoc As notesdocument Set db = session.CurrentDatabase Set view = db.GetView("(Wasser)") Set doc = view.GetFirstDocument() If Today() = doc.Forecast(0) Then Messagebox "Datum erreicht " & doc.Forecast(0) End If