Sub Initialize
Dim db As New NotesDatabase ("", Inputbox ("File name"))
If db.IsOpen Then
Messagebox "Title: " & db.Title & Chr(10) _
& "File name: " & db.FileName
Else
Messagebox "Could not open database " & db.FileName
End If
End SubIch drücke jetzt mal die Daumen, das jetzt nicht kommt: aber das soll mit Formel gemacht werden