Fehler abfangen

[RvM]

Ich habe ein kleines Script, das mir ein XML-File erstellt.
Wie fange ich dort den Fehler auf, wenn die Ansicht leer ist?
Sorry für die Frage - aber scripten ist nicht so mein Ding.

Code

Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim view As NotesView
	Dim entry As NotesViewEntry
	Dim nav As NotesViewNavigator
	
	Set db = s.currentDatabase
	Set view = db.GetView( "(XML)" )
	Set nav = view.CreateViewNav()
	Set entry = nav.GetFirst
	
	Print "Content-type: text/xml"
	Print |<?xml version="1.0" encoding="utf-8"?>|	
	Print "<Fundsache>"
	Print "<Gegenstand>"+entry.ColumnValues(0)+"</Gegenstand>"
	Print "</Fundsache>"
	
End Sub

[DAU-in]

 If view.EntryCount = 0 Then
    Messagebox "No documents in view",, "View empty"
end if

Grüsse

Dau-in

[RvM]

THX!!