NotesDirectory.CreateNavigator doesn't create navigator

After performing a lookup, I try to create a second NotesDirectoryNavigator-object. The value received is Nothing. Did anybody else see the same problem or is there anything wrong with my code?

The script I use in an local running agent started manually:

Dim session As New NotesSession	

Dim dirServer As NotesDirectory

Dim dirnavServer As NotesDirectoryNavigator

Dim dirnavServer2 As NotesDirectoryNavigator

Dim arstrItems(3) As String



Set dirServer = session.GetDirectory("anton/runningbits/DE")



arstrItems(0) = "CompanyName"

arstrItems(1) = "Department"

arstrItems(2) = "OfficePhoneNumber"

arstrItems(3) = "FullName"



Set dirnavServer = dirServer.LookupNames("($Users)", "Tester", arstrItems, True)

Set dirnavServer2 = dirServer.CreateNavigator()   '<--- this fails

Thanks in advance for any comments,

Boerries