以下のような形でしょう。 Dim namae As NotesName Set namae = New NotesName( "フィールド名" ) これで、 namae.Abbreviated でそのフィールド名の省略形式が取れるでしょう。 つまり、NotesNameクラスは別に、現在のユーザー名を 表すものではないということです。 ヘルプをよく読みましょう。