Create Notes Folder via VBA, xl97

[max]

Hallo,

ich erstelle einen Folder via Visual Basic (VBA), Excel 97 -in meiner Notes DB. Der Folder ist aber erst nach Schließen und Wieder-Öffnen der DB sichtbar.
Wie kann das per Code tun ?

Code:

Sub mkLNOrdner()
   Const ord = "Test"
   Set session = GetObject("", "Notes.NotesSession")
   If session Is Nothing Then Set session = CreateObject("Notes.NotesSession")
   Set LNdb = session.GETDATABASE("", "")
   If LNdb.ISOPEN = False Then LNdb.OPENMAIL
   Set LNdoc = LNdb.CREATEDOCUMENT
   With LNdoc
       Call .PUTINFOLDER(ord)
       Call .Save(True, True)
   End With
End Sub