Dim nam As NotesName Set nam = New NotesName( session.EffectiveUserName ) Print "Current Username = " & nam.Common