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/S=Goode/G=John/I=B") REM Returns "John" Messagebox nam.Given,, "Given" End Sub
See Also