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

関連項目

Generation プロパティ

用語集