選択した文書をアーカイブ用のＤＢ（ここではTestFile.nsf）へ移動させてしまう処理です。
FileName = Inputbox ( "保存先のファイル名を確認して下さい。",,"TestFile.nsf")
Dim Db As NotesDataBase
Set Session = New NotesSession
Set Db = Session.CurrentDataBase
Dim Doc As NotesDocument
Dim Db2 As NotesDataBase
d = Db.server
Set Db2 =New NotesDataBase(d,FileName)
Dim Collection As NotesDocumentCollection
Set Collection =Db.UnProcessedDocuments
For i=1 To Collection.Count
Set Doc =Collection.GetNthDocument(i)
Call Doc.CopyToDataBase(Db2)
Call Doc.Remove( True )
Next
※Lotus Notes Release 5.08 で動作確認しておりますが、OS等の違いによりうまく動作しない場合やトラブルが発生した場合は、責任は持てませんのでご了承ください。