Das geht mit der Klasse NotesName.
Bsp.:
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 "John B Goode"
Messagebox nam.Common,, "Common name"
Mit Evaluate geht es übrigens auch.
Andreas