簡単なサンプルを示します。 処理の流れはコメントを参照ください。 Dim ss As New NotesSession Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim lst List As Single Dim tmp$ Set dc = ss.CurrentDatabase.AllDocuments '<=ここは適当なコレクションを取得するように書き換えてください Set doc = dc.GetFirstDocument 'コレクションから最初の文書を取得 While Not doc Is Nothing 'コレクションを1件ずつ繰り返す tmp$ = doc.Field1(0) 'フィールドの値を取り出す lst(tmp$) = lst(tmp$) + 1 '値に一致するタグがあれば1を加える、なければ1をセットする Set doc = dc.GetNextDocument(doc) 'コレクションから現在の次にある文書を取得 Wend ret = "結果" '文字列を初期化する Forall o In lst 'リストを1件ずつ繰り返す ret = ret + Chr(13) & Listtag(o) & " = " & o 'リストタグと値をセットする End Forall Messagebox ret,,"結果表示" 以上、いかがでしょうか？