Using Cannonical Property in the NotesName class, we can get the cannonical name as the output
But in your case you should use Abbreviated Property in the NotesName class
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim LCView As NotesView
Dim CertifierName As String
Dim item1, item2 As NotesItem
Dim strArg As String
Dim nam As NotesName
Set db = session.CurrentDatabase
Set LCView = db.getview("MyView")
Set doc = LCView.GetFirstDocument
While Not (doc Is Nothing)
' doc.namManager(0) -- gives the values in the "namManager" field in the current document context
Set nam = session.CreateName(doc.namManager(0)) CertifierName = nam.Abbreviated
Msgbox CertifierName
Set doc = LCView.GetNextDocument(doc)
' Set item1 = doc.GetFirstItem("namManager")
' CertifierName = item1.text
' Msgbox CertifierName
' Set doc = LCView.GetNextDocument(doc)
Wend