次のエージェントは言語を関連付けた階層名を作成し、言語を表示します。
Sub Initialize
Dim session As New NotesSession
Dim nam As NotesName
REM Create a hierarchical name with a language
Set nam = session.CreateName( _
"CN=John B Goode/OU=Sales/OU=East/O=Acme/C=US", "fr-CA")
REM Returns "fr-CA"
Messagebox nam.Language,, "Language"
End Sub