Function getMailBox(server as String) As notesdatabase
Dim a%
Dim db As New NotesDatabase(server,"mail.box")
For a = 1 To 9
If db.IsOpen = False Then Set db = New notesdatabase(server,"mail" & a & ".box")
Next
Set getMailBox = db
End Function