Sub Initialize Dim session As New NotesSession Dim nam As NotesName REM Create a hierarchical name Set nam = session.CreateName( _ "CN=John B Goode/OU=Sales/OU=East/O=Acme/C=US") REM Returns "Acme" Messagebox nam.Organization,, "Organization"
End Sub
See Also