例: OrgUnit4 property

次のエージェントは正規形の階層名を作成し、組織単位 4 の構成要素を表示します。

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=Guitars/OU=Music/OU=Sales/OU=East/O=Acme/C=US")
  REM Returns "Guitars"
  Messagebox nam.OrgUnit4,, "OrgUnit4"
End Sub